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ABSTRACT 


This  thesis  describes  a  computer  program,  written  for 
an  IBM  1800  data  acquisition  and  control  system  computer, 
that  will  assist  with  the  design  and  analysis  of  linear, 
time-invariant  control  systems. 

Multivariable  systems  involving  pure  time  delay 
elements  and  characteristic  equations  with  repeated  and/or 
complex  roots  can  be  handled. 

The  program  will  accept  as  input  data  a  coded  equiva¬ 
lent  of  the  classical  block  diagram  plus  transfer  functions 
definition  of  the  problem  and  produce  the  equivalent  matrix 
formulation  of  the  system  state  equation.  By  doing  so,  the 
program  links  the  classical  transform  method  of  analysis 
with  the  more  recent  state  variable  approach.  The  user 
also  has  the  option  of  defining  and  entering  his  problem 
directly  in  the  standard  state  equation  form.  Regardless 
of  the  form  of  the  input,  the  program  calculates  the 
coefficient  matrices  for  the  state  difference  equations 
and  produces  the  time  domain  solution  for  any  specified 
state  and/or  output  variables. 

The  state  transition  or  fundamental  matrix  required 
to  derive  the  state  difference  representation  of  a  given 
system  is  obtained  by  the  Cayley-Hamilton  technique.  This 
technique  has  been  extended  to  handle  complex  eigenvalues 


. 


occurring  simultaneously  with  distinct  and  repeated  ones. 

The  program  has  user's  intervention  capabilities  in  a 
"conversational"  mode  analogous  to  most  simulation 
programs.  It  allows  the  user  to  rerun  a  problem  having 
altered,  for  example,  the  control  parameters  or  process 
conditions.  The  program  produces  complete  problem 
documentation  including  plots  of  the  time  domain  response (s) 
on  either  a  digital  plotter  or  a  storage  oscilloscope. 

The  six  examples  presented  and  the  use  by  other 
students  confirm  the  usefulness  of  the  program  to  solve 
realistic  control  problems. 

The  control  oriented  block  diagram,  transfer  function 
input  feature,  simplified  to  the  extent  of  requiring  no 
block  diagram  manipulation  and  minimum  input  data,  should 
encourage  process  control  students  to  use  the  program  to 
carry  out  simulation  studies  and  to  gain  experience  with 
control  techniques. 
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Chapter  I 
INTRODUCTION 

This  thesis  describes  a  digital  computer  program  which 
will  facilitate  the  design,  analysis  and  optimization  of 
of  linear  control  problems. 

Development  of  mathematical  models  and  evaluation  of 
their  time  domain  solutions  for  different  control  schemes 
are  basic  operations  for  most  control  problems. 

Fortunately  many  physical  systems  can  be  adequately 
represented  by  ordinary  differential  equations  of  the  type 
shown  in  equation  (1-1). 


.n 

a  + 

ndtn 


n-1 


dn_1y  + 


+  *l&  +  *0 


=  f  (t) 


(1-1) 


In  the  classical  method  of  control  system  analysis  it  is 
assumed  that  the  system  represented  by  equation  (1-1) 
starts  initially  from  a  steady  state  such  that  all  the 
initial  conditions  are  zero.  This  assumption  simplifies 
the  Laplace  Transformation  of  equation  (1-1)  so  that  it  can 
be  represented  in  the  "transfer  function"  form  shown  in 
equation  (1-2) 
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y  ( s )  =  G  ('s )  f  ( s ) 

where  G(s)  =  - - - - nq - - - - - 

as  +  a  s  +  .  .  .  +  a,  s  +  a 
n  n-1  1  o 

y  (s)  =  L[y(t)]  (1_2) 

f(s)  =  L [f ( t)] 

Many  control  system  analysis  procedures  further  assume  that 
the  forcing  function  f(t)  is  a  standard  function  such  as  a 
step,  ramp  or  sine  wave.  Therefore  the  analysis,  or  inverse 
transform  of  equation  (1-2)  is  simplified  and  the  properties 
of  the  time  domain  solution  y(t)  are  usually  easily 
determined . 

When  several  components ,  such  as  the  process ,  control¬ 
ler,  measuring  element  and  control  valve  are  included  in 
the  system,  then,  standard  practice  is  to  treat  each 
component  separately  and  develop  transfer  function  relation¬ 
ships  similar  to  equation  (1-2).  The  interrelationship 
between  the  components  is  then  represented  by  a  block 
diagram  such  as  that  shown  in  Figure  1-1. 


U(l) 


Figure  1-1.  Block  Diagram  for  Standard,  Single  variable 
Control  System. 
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The  control  engineer  can  then  use  the  familiar  techniques 
of  block  diagram  manipulation  and  inverse  Laplace 
transformation  to  determine  the  system  response,  Y(3)  , 

to  load  disturbance  U(l). 

In  recent  years  there  has  been  increasing  emphasis  on 
the  use  of  matrix  or  state  variable  methods.  In  this 
method  models  are  either  formulated  directly,  or  converted 
from  forms  such  as  equation  (1-1) ,  into  a  system  of  first 
order  differential  equations  which  can  be  represented  in 
matrix  notation  as 


X(t)  =  AX  (t)  +  BU  (t) 


(1-3) 


In  the  more  general  case  control  systems ,  such  as  the  one 
shown  in  Figure  1-1  are  represented  by  the  following  pair 
of  matrix  equations 


X  (t)  =  AX ( t )  +  BU ( t ) 

Y  (t)  =  CX(t)  +  DV ( t ) 


(1-4) 


Standard  mathematical  methods  exist  for  obtaining  the  time 
domain  solution  of  equation  (1-4)  and  a  rapidly  growing 
volume  of  literature  deals  with  control  aspects  such  as 
stability  and  optimum  response.  One  important  feature  is 
that  the  solution  of  equation  (1-4)  can  be  written  in  terms 
of  difference  equations  which  are  particularly  suitable  for 
implementation  on  real-time  digital  computers. 

The  object  of  this  work  was  to  develop  a  digital 
computer  program  that  would  accept  the  problem  statement 
in  either  the  block  diagram  form  represented  by  Figure  1-1 


, 
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or  the  matrix  equation  form  defined  by  equation  (1-4)  and 
produce  the  time  domain  response  for  all  variables  of 
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interest.  In  addition  the  program  was  to  include  features 
to  assist  the  engineer  in  his  selection  of  design  variables 
and  to  operate  in  a  convenient,  interactive  mode  so  that 
changes  could  be  made  to  the  system  specifications  and 
their  effect  evaluated.  Some  of  the  specific  design 
specifications  for  the  program  were  that  it  should: 

a.  Be  simple  and  convenient  to  use  but  also  capable  of 
handling  realistic  problems  and  allowing  a 
knowledgable  user  to  tailor  his  own  solution  by  the 
use  of  options. 

b.  Run  in  a  time  sharing  mode  on  a  small  real-time 
computer  such  as  the  IBM  1800. 

c.  Generate  the  equivalent  matrix  representation  for  a 
problem  defined  in  the  block  diagram  notation. 

d.  Generate  the  matrix  difference  equation  form  of  the 
solution  and  if  requested  generate  the  time  domain 
solution  for  all  elements  of  X  and  Y. 

e.  Provide  the  linkage  for  closed-loop  optimization  of 
controller  constants  and  for  the  use  of  alternative 
sub-programs  for  all  internal  steps  such  as  finding 
eigenvalues  so  that  the  user  can  substitute 
alternative  methods. 

f.  Handle  control  systems  defined  by  characteristic 
equations  which  have  real,  complex  and/or  repeated 


roots . 
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g.  Produce  complete  problem  documentation  of  both  the 
control  results  and  the  important  steps  of  the 
mathematical  solution  and  display  the  time  domain 
results  as  listings ,  graphs  produced  on  a  digital 
plotter  or  displays  on  a  storage  oscilloscope. 

h.  Accept  forcing  functions  defined  mathematically  or 
simply  as  a  list  of  function  values. 

i.  Not  require  any  block  diagram  manipulation  or 
"standardization"  by  the  user  prior  to  using  the 
program. 

j.  Handle  "standard"  control  problems  by  simplified 
options . 

k.  Handle  all  the  conventional  controllers  including 
the  ideal  proportional  plus  derivative  algorithm. 

l.  Allow  the  inclusion  of  pure  time  delays  as  isolated 
elements  or  as  part  of  other  transfer  functions. 

The  ability  to  handle  pure  time  delays  is  extremely 
important  because  they  are  so  common  in  mathematical  models 
of  process  equipment.  In  addition  several  people  (18)  ,  (20) 
have  demonstrated  that  a  transfer  function  of  the  form 
given  in  equation  (1-5)  adequately  describes  most  process 
units  for  the  purpose  of  control: 


G  ( s ) 


(T1+l)  (x  2S+1) 


(1-5) 


If  a  process  is  defined  by  some  or  all  of  the  terms  in 
equation  (1-5)  then  methods  are  available  in  the  literature 
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that  could  be  included  in  the  program  to  generate  the 
optimal  constants  for  a  conventional  proportional-integral- 
derivative  controller. 

The  program  as  finally  developed  is  described  at 
three  different  levels  of  detail.  The  most  general 
description  is  given  by  Figure  2-1  and  the  accompanying 
program  description  in  Chapter  II.  Most  of  the  functions 
and  options  in  the  program  are  illustrated  in  the  two  page 
flow-diagram  included  in  Appendix  B.  Finally  the  details, 
definitions  of  flags,  provision  for  future  additions,  etc., 
are  all  defined  in  the  fourteen  page  flow-diagram  included 
in  Appendix  B.  The  complete  program  listings  which  are 
included  in  Appendices  E  and  F  contain  comment  cards  which 
further  explain  the  details  of  the  program. 

The  literature  survey  includes  some  of  the  more 
pertinent  references  dealing  with  the  mathematical  methods 
used  in  the  program  and  some  of  the  control  oriented 
features  that  were  incorporated. 

The  mathematical  basis  of  the  program  and  a  presenta¬ 
tion  of  some  of  the  less  familiar  methods  used  is  given  in 
Chapter  IV.  The  operating  system  and  the  limited  amount  of 
available  core  storage  of  the  IBM  1800  computer  located 
in  the  Department  of  Chemical  and  Petroleum  Engineering 
significantly  effected  the  design  of  the  program.  Comments 
on  the  implementation  and  the  system  design  are  collected 
in  Chapter  V. 

Those  readers  interested  in  the  control  aspects  and 


' 
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applications  should  be  able  to  proceed  from  the  general 
program  description  to  the  discussion  of  examples  included 
in  Chapter  VI . 

The  final  chapter  includes  a  discussion  of  user 
experience,  recommendations  for  further  work  and  the 


conclusions . 
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Chapter  II 
PROGRAM  DESCRIPTION 

Figure  2-1  shows  the  overall  organization  of  the 
program.  The  first  section  handles  the  input  and  storage 
of  coded  block  diagram,  transfer  function  and  configura¬ 
tion  data.  In  the  computational  section  that  follows,  the 
transfer  function  and  configuration  data  are  processed 
into  the  equivalent  matrix  state  equation  and  algebraic 
matrix  equation  which  have  the  form: 


X  =  AX  +  BU 
Y  =  CX  +  DV 


(2-1-1) 

(2-1-2) 


Upon  user's  option  the  coefficient  matrices  of  system 
(2-1)  are  printed  out. 

The  program  then  calculates  the  coefficient  matrices 
of  the  following  state  difference  equation  form  of  the 
solution : 


X  .  ,  ,  =  <p  (T)  X  .  +  H  (T)  U  . 
-J  +  1  ~  ~J  ~  ~J 


Y  .  =  CX  .  +  DV  . 
~J  —J  — J 


(2-2-1) 

(2-2-2) 


where  X^  represents  the  discrete  value  of  X  at  time  jT. 
The  basic  step  in  the  solution  is  the  calculation  of  the 
fundamental  or  state  transition  matrix,  <|>(t).  The 
coefficient  matrix  H(T)  is  then  evaluated  by  numerical 


■ 
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FIGURE  2-1  Simplified  Flow  Diagram  of  the  Program 
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evaluation  of  the  following  equation: 

T 

H(T)  <£  ( t)  Bdt  (2-3) 

0 

where  T  is  the  time  interval  or  sampling  period.  The 
matrices  B,  C  and  D  are  the  same  as  defined  in  (2-1)  and, 
upon  user's  option,  can  be  printed  or  punched  onto  cards. 

Finally  a  time  domain  solution  is  generated  from 
system  (2-2) .  The  time  domain  solution  for  the  variables 
of  interest  is,  in  accordance  with  user's  specifications, 
printed,  plotted,  or  stored  into  a  permanent  computer  file 
for  later  use. 

The  final  section  of  the  program  interacts  with  the 
user  in  a  conversational  mode,  and  allows  him  to  make 
changes  and  rerun  his  problem. 

The  main  sections  of  this  program  are  described  in 
more  detail  in  the  following  sections.  Persons  wishing  to 
use  the  program  should  also  consult  the  "User's  Manual" 
included  as  Appendix  A. 

2.1  Input  Section  of  the  Program 

The  program  is  designed  to  handle  problems  defined  by 
either : 

a.  Transfer  function  plus  configuration  data,  or 

b.  Coefficient  matrices  for  equation  (2 -1)  . 
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2.1.1  Transfer  Function  plus  Configuration  Data 
The  classical  means  of  representing  a  control  system 
is  by  means  of  a  block  diagram  and  appropriate  transfer 
functions.  The  interconnections  between  the  various  blocks 
of  the  diagram  are  coded  for  input  to  the  computer  program. 
The  required  "configuration  data"  for  any  particular  block 
consists  simply  of  an  identification  number,  a  list  of  the 
variables  entering  the  block  and  as  many  coefficients  as 
there  are  inputs.  The  requirement  of  entering  coefficients 
as  part  of  the  configuration  data  could  have  been  elimi¬ 
nated  by  having  the  user  include  them  in  the  transfer 
functions.  However  an  analysis  of  typical  problems  showed 
that  the  use  of  separate  coefficients  permitted  greater 
flexibility  and  simplicity  in  defining  problems. 

Because  of  the  simple  and  logical  type  of  input  the 
user  may  enter  his  transfer  function  and  configuration 
data  almost  directly  from  the  block  diagram.  This  is  a 
considerable  advantage  in  comparison  with  some  digital  sim¬ 
ulation  languages  (CSMP,  LCAP ,  etc.)  that  require  the  user 
to  manipulate  the  block  diagram  into  a  standard  form  or  to 
transform  it  into  an  equivalent  system  of  standard  function 
elements.  However  it  is  sometimes  possible  to  signifi¬ 
cantly  reduce  the  dimensions  of  equation  (2-2-2)  by  simple 

manipulation  of  the  block  diagram  to  combine  algebraic 
(*) 

operations.  Examples  are  discussed  in  Chapter  VI. 

For  purposes  of  this  program  it  is  assumed  that  most 
transfer  functions  consists  of  terms  that  can  be 


(*)  see  Figure  A-l  page  A-ll. 
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represented  as  polynomials  in  the  Laplace  transform 
variable,  s.  The  input  data  required  by  the  program  is  the 
block  identification  number  and  the  order  and  list  of 
coefficients  for  each  polynomial  term.  The  method  of 
handling  special  functions  such  as  time  delays  and  isolated 
derivative  terms  is  very  similar  and  is  explained  in  the 
User's  Manual,  Appendix  A, 


2.1.2  Matrix  Input  Option 

The  emphasis  in  this  case  is  on  using  the  program  as 
a  linear  matrix  differential  equation  solver.  In  most 
general  cases  the  user  must  supply  the  coefficient  matrices 
A,  B,  C  and  D  of  system  (2-1) as  well  as  the  information 
necessary  to  build  the  forcing  function  vectors  U  and  V. 

In  the  absence  of  time  delays  the  forcing  function  vectors 
U  and  V  are  equal  and  the  input  is  simplified.  Options 
are  included  to  simplify  the  handling  of  special  cases  of 
system ( 2“ l) such  as  the  following: 


X  =  AX  +  BU 
Y  =  CX 


(2-4) 


X  =  AX  +  BU 


(2-5) 


Further  details  on  this  type  of  input  are  given  in  the 
User's  Manual,  Appendix  A.  The  specification  of  the  type 
and  magnitude  of  external  forcing  functions  is  the  same 
for  all  cases  and  requires  a  code  number  plus  one  or  two 
parameters . 


. 
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Auxiliary  information  such  as  the  initial  state  vector, 
the  value  of  the  time  interval,  the  desired  output  vari¬ 
ables  for  the  discrete  solution,  etc.  are  set  to  standard 
values  by  the  program.  This  is  done  to  allow  the  user  to 
run  a  problem  with  the  minimum  amount  of  input  data. 

It  is  possible,  however,  for  the  user  to  select  his 
own  options  and  other  than  "standard"  values  to  fit  his 
specific  requirements.  Full  details  are  given  in  Appendix 
A. 


2 . 2  Generation  of  the  State  Equation 
Each  transfer  function  is  decomposed  into  an  equiva¬ 
lent  set  of  first  order  linear  differential  equations  by 
introducing  the  appropriate  "state  variables."  A  matrix 
representation  is  adopted.  Coefficient  matrices  of  the 
system  of  linear  differential  equations  and  the  associated 
algebraic  equations  are  manipulated  into  the  standard  form 
of  equation  (2-1) .  Refer  for  details  to  Chapter  IV: 

Theory  and  Mathematical  Basis. 

2 . 3  Calculation  of  State  Difference  Equation 
The  discrete  version  of  the  solution  of  equation  (2-1) 
is  given  by  equation  (2-2) .  The  derivation  of  this 
equation  is  given  in  Saucedo  and  Schiring  (23) . 

Xj  +  1  =  $  (T)  X j  +  H(T)U_. 


Y  . 

“3 


CX  .  +  DV . 
—  3  —3 


(2-2) 


. 

, 

. 

. si sea 
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where:  T  =  time  interval  or  sampling  period 

(T)  =  fundamental  or  state  transition  matrix 


H  (T)  =  <J>  ( t)  Bdt 


Xj  represents  the  discrete  value  of  X  at 

time  jT. 

The  discrete  values  of  X  and  Y  generated  by  equation 
(2-6)  are  exact  solutions  to  the  matrix  equation  (2-1) 
assuming  the  forcing  functions  U  and  V  are  constant  over 
each  sampling  interval.  For  problems  that  do  not  include 
pure  time  delays  U  =  V  and  the  user  will  usually  know  from 
physical  considerations  whether  the  assumption  is  valid. 
However  in  the  more  general  case  U  and  V  are  partitioned 
vectors  containing  forcing  functions,  delayed  forcing 
functions  and  delayed  state  variables  (see  Chapter  IV  for 
details).  Consequently,  it  is  more  difficult  for  the  user 
to  determine  the  validity  of  assuming  constant  U  and  V 
without  examining  the  structure  of  these  vectors.  In 
general,  if  U  and  V  are  not  constant  over  the  sampling 
interval,  T,  then  the  accuracy  of  the  solution  increases 
as  the  time  interval  is  reduced. 

Clearly,  the  central  objective  of  this  part  of  the 
program  is  the  computation  of  the  fundamental  matrix.  Two 
methods  are  presently  implemented  for  this  purpose, 
a.  A  power  series  method  based  on  the  definition 
of  the  fundamental  matrix  (see  section  4.9). 


, 
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b.  Cay ley-Hami lton  technique.  It  is  based  on  the 

Cay ley-Hamilton  theorem  and  uses  n-1  power  terms  of 
the  matrix  A  to  find  the  fundamental  matrix  where  n 
is  the  dimension  of  the  square  matrix  A. 

The  Cay ley-Hamilton  technique  as  described  in  the 
references  consulted  for  this  work  (8,22,23)  was  extended 
to  handle  complex  conjugate  eigenvalues  occurring  alone  or 
in  combination  with  distinct  and/or  repeated  eigenvalues. 

The  details  of  this  extension  are  given  in  Chapter  IV. 

2.4  Time  Domain  Solution  and  Output 

The  time  domain  solution  is  generated  by  iterating 
equation  (2-6)  over  the  desired  time  range. 

Several  options  are  available  to  display  or  document 
the  results  of  the  problem  analysis.  For  example  the  time 
domain  values  of  X  and  Y  can  be  listed  on  the  printer, 
displayed  on  an  oscilloscope  or  graphed  on  the  digital 
plotter.  Several  levels  of  documentation  of  the  parameters 
used  and  intermediate  results  are  also  available. 

These  features  are  illustrated  by  the  examples  included 
in  Chapter  VI :  Program  Demonstration  and  Application  and 
in  Appendix  C.  Details  on  the  use  of  plotting  options  are 
included  in  the  User's  Manual,  Appendix  A. 

2.5  Changes  to  Problem  Specification 

Once  the  time  domain  response  has  been  found  the 
program  allows  the  user  at  the  console  to  make  the 
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following  changes : 

2.5.1  Disturbance  Type  and/or  Magnitude 
This  option  requires  re-execution  of  only  the  last 
part  of  the  program,  specifically  the  time  domain  solution. 
Such  option  allows  the  user  to  investigate  the  effect  of 
different  types  of  forcing  functions  (step,  ramp,  sine  wave 
etc.)  acting  as  set  points,  load  dis turbances , etc . . . . 
on  the  response  of  an  "output"  variable.  Minor  changes  are 
also  allowed.  They  are  illustrated  in  the  User's  Manual, 
Appendix  A. 

2.5.2  Change  of  Calculation  Pattern 
The  use  of  these  options  basically  allow  the  user  to 
change  the  method  or  the  numerical  techniques  used  to 
generate  and  output  the  time  domain  solution.  For  example: 

a.  Provision  has  been  made  so  the  user  can  add  a 
subroutine  for  direct  integration  of  equation  (2-1) . 

b.  The  fundamental  matrix  (j)(T)  can  be  generated  by 
either  the  power  series  or  Cayley-Hamilton 
techniques . 

c.  Alternative  methods  can  be  used  to  evaluate  eigen¬ 
values  . 

d.  Output  can  be  printed  or  plotted. 

A  table  of  all  available  options  and  their  code  numbers 
is  included  in  Appendix  A. 


emx 
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2.5.3  Transfer  Function  Parameter (s)  and/or  Type(s) 

This  is  the  most  general  type  of  change.  It  allows 
the  user  to  change  one  or  more  process  parameters,  types  of 
transfer  function,  controller  parameters,  types  of  control¬ 
ler  etc.  Because  of  the  program  structure /changes 
described  under  2.5.1  and  2.5.2  are  also  possible  at  the 
same  time. 

As  mentioned  earlier  this  change  allows  the  user  at 
the  console  keyboard  to  alter  one  (or  more)  controller 
constants  based  on  direct  observation  of  the  previous  runs. 
Extensive  use  of  this  option  was  made  in  providing  figures 
and  examples  to  demonstrate  the  program  included  in  Chapter 
VI  to  which  the  reader  is  referred  to  for  more  detail. 
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Chapter  III 
LITERATURE  REVIEW 

This  program  performs  a  function  similar  to  existing 
digital  simulation  programs.  Franks  (9,  p.34)  presents  a 
summary  of  digital  simulation  languages  for  continuous 
systems  and  reference  (3)  includes  a  discussion  of  the 
history  of  some  of  these  programs.  Examples  are  MIMIC  and 
DSL/90  (Digital  Simulation  Language) .  CSMP/360  (Continuous 
System  Modeling  Program) ,  the  most  comprehensive  of  this 
class,  was  derived  from  DSL/90.  It  is,  however,  intended 
for  execution  on  a  large  scale  digital  system  and  is  avail¬ 
able  at  the  University  of  Alberta  as  part  of  the  360/67 
library.  Originally  designed  to  overcome  some  of  the  limit¬ 
ations  of  analog  simulation  as,  for  example,  scaling  problems 
caused  by  limited  voltage  levels,  patching,  etc.,  they  de¬ 
veloped  into  continuous  system  simulators  where  the  element 
or  block  modeling  feature  of  the  analog  simulation  was 
combined  with  algebraic  and  logical  modeling  capabilities. 

The  input  language  permits  configuration  and  block  state¬ 
ments  to  be  prepared  directly  and  simply  from  either  a 
block  diagram  or  a  differential  equation  representation 
of  the  system  to  be  simulated.  Recent  improvements 
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include  the  implementation  of  user's  intervention  capa¬ 
bilities  during  or  at  the  end  of  a  simulation  run  in  a 
"conversational"  mode  as  for  example  in  the  PACTOLUS 
language  or  the  University  of  Alberta  version  of  IBM  1130 
CSMP .  Because 'of  its  analogy  with  the  presented  program 
and  its  design  for  implementation  on  the  same  system 
(IBM  1800  DACS  computer) ,  the  1130  CSMP  will  now  be 
described  in  more  detail  (11) .  It  is  defined  as  a  general 
"differential  equation  solver"  program.  It  can  handle 
linear,  nonlinear,  continuous  and  discrete  systems.  The 
block  diagram  representation  must  be  manipulated  into  a 
series  of  standard  function  elements  or  blocks  and,  if 
necessary,  user  defined  ones.  Input  is  given  by  means  of 
three  different  types  of  statements  defining  block  inter¬ 
connections  and  functional  operations,  problem  parameters, 
and  external  forcing  functions.  The  solution  technique 
consists  of  feeding  the  output  of  an  integrator  to  the 

next  function  element  in  the  desired  calculation  pattern, 

» 

etc.  The  final  output  is  given  at  specified  time 
intervals  as  a  print-plot  on  the  printer  or  on  the  digital 
plotter  if  one  is  available. 

Discussing  the  computer  implementation  of  classical 
control  system  techniques,  Saucedo  and  Schiring  (23) 
present  another  program  LCAP (Linear  Control  Analysis 
Program)  which  was  developed  by  E .  A.  Lee,  Aerospace 
Corporation,  El  Segundo,  California.  It  deals  with 
multiloop,  multivariable  continuous  and  discrete  systems. 
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Acceptable  inputs  are  any  number  of  transfer  functions  with 
a  maximum  order  of  three.  However  the  block  diagram,  must 
be  manipulated  to  conform  with  a  "generalized  system  model" 
and  all  external  forcing  functions  must  be  expressed  in 
Laplace  transform  before  the  problem  can  be  entered  into 
the  LCAP  program.  No  time  delays  are  allowed.  The  program 
then  calculates  the  closed  loop  transfer  function,  expands 
it  into  "partial  fractions"  and  finds  the  time  domain 
solution  by  inverting  each  term  of  the  expanded  expression. 
The  program  is  also  capable  of  generating,  upon  request, 
Bode,  Nyquist,  Nichols  and  Root  Locus  plots. 

A  paper  by  Davison  (7)  presents  a  similar  method  for 
solving  large  systems  of  linear  differential  equations.  A 
linear,  first  order  matrix  differential  equation  is  solved 
by  taking  the  Laplace  transforms  and  expanding  the  result 
into  partial  fractions.  An  interesting  comparison  with 
Runga-Kutta  integration  shows  that  the  computer  time 
required  to  solve  a  problem  by  direct  integration  is  much 
longer  than  that  required  by  the  method  presented  in  the 
paper  and  for  large  problems  becomes  impractical. 

Many  textbooks  deal  with  the  topics  in  process  control 
of  interest  to  this  work  (6,8,22,23).  DeRusso,  Roy  and 
Close  (8,  p.270)  was  found  particularly  helpful  for  its 
generalization  of  the  Cayley-Hamilton  technique  to  matrix 
functions.  This  is  illustrated  for  the  case  of  distinct 
and  repeated  eigenvalues  in  their  examples  4.10.11  and 
4.10.12.  Saucedo  and  Schiring  (23,  p.647)  derive  the  state 
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difference  equation  from  the  state  equation  and  discuss 
many  of  the  methods  incorporated  into  this  work. 

Several  papers  were  studied  in  connection  with  the 
implementation  of  a  "library"  of  functions  to  generate 
constants  for  standard  types  of  process  transfer  functions. 
Some  of  them  (1,4,5,20,21,25)  refer  to  analog  controllers; 
others  (10,16,17,18,19,24,25)  refer  to  digital  controllers. 
In  particular,  a  paper  by  Miller,  Lopez,  Smith  and  Murrill 
(20)  and  one  by  Chien,  Hrones  and  Reswick  (5)  provided  the 
data  for  the  proportional-integral-derivative  controller 
constants  in  a  single  unity  feedback  loop  with  a  first 
order  lag  plus  time  delay  process  transfer  function  that 
was  used  in  this  program. 

A  paper  by  Bakke  (2)  describing  a  simplified  transient 
response  type  of  analysis  to  determine  process  transfer 
function  parameters  was  found  of  interest  for  its  possible 
implementation  to  extend  the  capabilities  of  the  present 
program.  Reference ( 13) contains  the  description  and  listing 
of  all  the  IBM  "Scientific  Subroutine  Package"  subroutines 
used  in  the  program  and  not  included  in  the  specific 
Appendix  F. 

Reference  was  also  made  to  the  series  of  IBM  publica¬ 
tions  that  describe  the  IBM  1800  computer  system  and  are 
available  in  the  Department  of  Chemical  and  Petroleum 
Engineering.  Of  particular  use  in  the  programing  phase  of 
this  project  were  the  FORTRAN  IV  manual  (14)  and  the  Time¬ 
sharing  Executive  System  Operating  Procedures  (15). 


22 


Chapter  IV 

THEORY  AND  MATHEMATICAL  BASIS 


A  block  diagram  representation  of  a  linear  system 
consists  of  several  blocks  such  as  the  one  shown  in  Figure 
4-1.  The  multiple  inputs  are  related  to  the  single  output 
through  the  transfer  function,  G^(s)  which  is  normally  an 
algebraic  expression  in  the  Laplace  variable  "s". 


FIGURE  4-1.  -  General  Representation  of  a  Unit  Block 
Diagram. 


4 . 1  Transfer  Function  Definition 
A  general  expression  for  G^(s)  is: 


G^  ( s )  — 


.  TdS  ,  m ,  m-1,  ,  , 

ke  (a  s  +a  ,s  + . . . . a, s+an ) 
_  m  m-1 _ 1  0 

b  sn+  b  ,sn_1+ . b..s+bn 

n  n-1  1  0 


(4-1)' 


(*) 


where  a's  and  b's  are  real  constants.  In  equation  (4-1) 
it  is  assumed  that  n  is  greater  than  m,  a  condition 
fulfilled  by  most  physical  control  systems.  Equation  (4-1) 
may  assume  the  following  three  special  forms  which  will  be 


/ *  \  — Ts 

k  A  sampler  plus  zero-order-hold  element,  (1-e 

be  specified  using  equation  (4-1) . 


) /s ,  can 


referred  to  in  the  following  mathematical  treatment: 

a.  Equal  order  of  numerator  and  denominator. 
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m,  m-l, 

as  +a  ns  + 
m  m-l 


> 


( s ) 


b  sn+  b  ,sn  1+  b,s+bn 
n  n-1  10 


n 


m 


(4-2) 


b.  Pure  or  isolated  time  delay 


G.  (s)  =  ke 

l 


(4-3) 


Only  one  transfer  function  of  this  type  is  allowed. 
When  this  occurs  no  other  time  delay  such  as  those 
included  in  equation  (4-1)  is  allowed.  Note  that 
isolated  time  delays  can  frequently  be  combined  with 
other  transfer  functions  by  simple  block  diagram 
manipulation . 

c.  Isolated  derivative  terms. 


G . (s)  =  a. s+aA 

l  1  0 


(4-4) 


Only  one  transfer  function  of  this  type  is  allowed. 
Further  restrictions  on  the  input  will  be  mentioned  in 
later  sections.  When  an  isolated  derivative  term  is 
present  then  time  delays  cannot  be  combined  into  other 
transfer  functions  such  as  the  one  defined  by  equation 
(4-1).  However  one  isolated  time  delay  can  be  used. 
Equations  (4-1)  to  (4-4)  represent  acceptable  transfer 
functions  for  the  program.  Consistent  with  the  common 


assumption  for  transfer  functions  it  is  assumed  that  the 
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input  and  output  variables  have  zero  initial  conditions, 
i.e.,  are  "deviation"  variables.  This  is  done  to  simplify 
the  following  mathematical  manipulation  of  the  transfer 
functions  into  the  equivalent  state  variable  equations. 
Provision  has  been  made  in  the  program  to  handle  non-zero 
initial  conditions  for  problems  that  are  entered  directly 
as  state  matrix  equations. 

4.2  Generation  of  the  State  Equations 
,  Equation  (4-2)  can  be  rewritten  for  convenience  as: 


y(s)  Bms 


G  ( s ) 


v  (s) 


where  the  coefficient  has  been  made  equal  to  unity. 

The  following  general  procedure  is  applied  to  generate  the 
equivalent  set  of  linear  first  order  differential  equations. 
Assuming  the  most  general  case  of  equation  (4-5),  i.e., 
where  n  =  m,  then  the  equivalent  time  domain  representation 
can  be  written: 


.+^1P+^Q)v(t) 


v  ( t ) 


0 


(4-6) 


t=0 


y  (t) 


o 


t=o 


where  p  =  d/dt 
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Consider  the  following  set  of  first  order  differential 
equations  which  will  be  shown  to  be  equivalent  to  a  single 
transfer  function  of  the  type  (4-5) 


y 


v 


kk+l 


+  b.  v 
k 


k  =  1 , 2 , 3 , . . . n-1 


(4-7) 


x  =  -  (a.x.  +an  x0+  .  .  .  -fa  ,x  ) +b  v 
n  0112  n-1  n  n 


The  constants  a^ ,  b^  of  equation  (4-7)  are 
terms  of  a's  and  3's  of  equation  (4-6)  as 
Differentiating  the  first  equation  of  the 
respect  to  time  yields: 


expressible  in 
described  below, 
set  (4-7)  with 


py  =  x1  +  bQ  v  (4-8) 

Substituting  for  from  the  second  equation  of  set  (4-7) 
gives : 


py  =  (x0  +  bnv)  +  bQv 


or 


(4-9) 


py  =  x2  +  b^v  +  bQpv 

Following  the  same  procedure,  the  second  and  higher 
derivatives  of  y  are: 

2  2  2 
p  y  =  x2  +  b1pv  +  bQp  v  =  x3  +  b2v  +  b-^v  +  bQp  v 


pR  "^y  =  x  +  b  v  +  b  pv  +  .  .  +  b  pn  ^v 
^  J  n  n-1  n-2  0 


(4-10) 


n 


=  -(a0x1+aix2  +  ..  +  ari_1xn)  +  b„v  +  bn_lPv  +  ..  bnp  v 


n-1  n 


n 


n-1 


0J 


n 

p  y 


•  • 
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Substituting  for  y,  py ,  pZy  ....pny  from  equations  (4-7) 
to  (4-10)  into  equation  (4-6) 


n 


-(a,x.  +  anx„  +  . .+  a  ..  x  )  +  b  v  +  b  . pv  +  ..  b_p  v 

(JJ_  I  /  n  —  In  n  n-  I1  i ) 


12  **  n-1  n  n  n-l^v  '  *  *  ~0J 


n-1 


+  a  ,  [x  +  b  -v  +  b  0pv  +  . . .  +  b.p  v]  + 
n-1  n  n-1  n-21^  0 


+  a1 [x2  +  bnv  +  bnpv] 


1 


0J 


(4-11) 


+  aQ [ x 1  +  bQv]  = 


(3npn  +  3r_  ipI1  1  +  •••  +  3np  +  3n )  v 


0 


By  comparing  the  two  sides  of  equation  (4-11)  it  follows 
that 


a.  =a.  i  =  1 , 2  . .  .  . n 

li  '  ' 


and 


eo 

aobo 

+ 

albl 

+ 

•  •  •  + 

a  n  b  .. 
n-1  n-1 

+ 

b 

n 

II 

1 — 1 

ca 

alb0 

+ 

a2bi 

+ 

•  •  •  + 

a  n  b  „ 
n-1  n-2 

+ 

b  , 
n-1 

•  • 


3  1  =  ex  nbn  +  b, 

n-1  n-1  0  1 


(4-12) 


3  =  b_ 

n  0 


In  expanded  matrix  form  equation  (4-12)  becomes 


6n 

3n-l 

3n-2 

= 

o 

4 

1 

1 - 1 

0 

0  •  •  •  •  • 

a  -» 
n-1 

1 

0  •  •  •  •  • 

an-2 

an-l 

1  *  •  •  •  • 

a0 

al 

2  n-1 

0 

0 


b 


0 


n 


(4-13) 
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and  in  matrix  notation 


§  =  ALPHA  b  (4-14) 

where  ALPHA  is  the  above  n  by  n  square  matrix. 

Since  ALPHA  is  always  nonsingular  the  equation  may  be  solved 
solved  for  the  vector  of  coefficients  b  as 

b  =  ALPHA~ 1  §  (4-15) 

This  equation  along  with  equation 

a  =  g  (4-16) 

completely  defines  the  coefficients  of  the  state  equations 
defined  by  (4-7).  The  substitution  of  these  coefficients 
into  equation  (4-7)  provides  the  set  of  state  equations 
equivalent  to  the  general  transfer  function  defined  by 
equation  (4-5) .  The  illustrated  procedure  can  obviously 
be  repeated  for  each  transfer  function  of  the  block  diagram, 
the  only  difference  being  that  the  state  variables  are 
sequentially  indexed  from  the  last  value  up.  The  total 
number  of  state  variables  thus  generated  is  equal  to  the 
order  of  the  system  or,  in  other  terms,  equal  to  the 
highest  power  of  the  denominator  of  the  system  transfer 
function  or  "characteristic  equation." 

4.3  Matrix  Representation  of  State  Equation 
Substituting  for  the  variable  v  of  equations  (4-5)  , 
(4-6)  and  (4-7)  the  more  general  form  of  input  shown  in 


' 
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Figure  4-1  yields: 


v(t)  -  m1Y1(t)  +  rn2y2(t)  +  .  ..+  r^u^t)  +  n2u2(t)  +  .. 

(4-17) 

where  the 

y(t)  are  called  "output  variables"  and  the 
u(t)  are  called  "external  forcing  functions." 

,m2  ,m2  ,  .  «,  .  n^  ,n2  ,n^  ,  .  .  .  .  are  real  coefficients. 
Substituting  (4-17)  into  (4-7),  separating  the  state 
variable  equations  from  the  configuration  or  output 
variable  equations,  dropping  for  simplicity  of  notation  the 
independent  variable,  time,  and  subscripting  the  state 
variables  so  that  they  represent  the  state  variables  intro¬ 
duced  by  the  ith  transfer  function  to  be  converted 


Xk  =  Xk+l+bkmlyl+bkm2y2+---+bknlUl+bkn2U2+ 


k= j , j+n- 2 


x.,  ,  =  - (artx  .  +  a,x ,  +  a  ,x..  , ) +b  m1y1+b  m0y0+. 

j+n-1  0  j  1  j+1  n-1  3+n-l  n  l2 1  n  21  2 


. .+  b  n-.u..+b  n0u0+... 
nil  n  2  2 


Yi  =  xj  +  b0miyi  +  b0m2y2  +  ...+  +  b^u^. 


where  j  =  1 


for  i  =  1 


D  = 


i-1 


i 


q=l 


(order  of  qth 
j  transfer  function) 


+  1  for  i  >  1 


(4-18) 

(4-19) 


and  q  is  just  a  "counting  variable"  for  the  summation. 
Note  that  the  program  assumes  that  y_^  is  the  output 
variable  of  the  block  identified  by  the  number  i. 


' 
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Equations  (4-18)  are  identified  with  the  following  matrix 
equation : 

X  =  AlX  +  BlY  +  Clu  (4-20) 

where 

X  is  the  vector  of  the  state  variables 

Y  is  the  vector  of  output  variables  and, 

u  is  the  vector  of  external  forcing  functions 
Al,  Bl,  Cl  are  coefficient  matrices. 

In  an  analogous  way  equation  (4-19)  is  identified 
with  the  following  matrix  equation: 

Y  =  FX  +  GY  +  Hu  (4-21) 

where 

F,  G  and  H  are  coefficient  matrices. 

Block  diagrams  with  one  or  more  transfer  functions 
of  the  type  defined  by  equation  (4-1)  or  with  one  defined 
by  equations  (4-3)  and  (4-4)  are  now  discussed. 

4.4  Block  Diagrams  Containing  One  or  More  Transfer 
Functions  Including  Time  Delays 
When  a  transfer  function  with  a  time  delay  is  present 
and  the  degree  of  the  numerator  is  less  than  that  of  the 
denominator  the  treatment  so  far  developed  applies 
entirely  with  the  exception  that  equation  (4-17)  in  effect 
becomes : 

v ( t— t  d )  =  m1y1(t-Td)+m2y2(t-Td)  +  . .n1u1(t-Td)+n2u2 (t-xd)  +  . . 


(4-22) 


, 

' 

, 

, 
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In  other  words  transfer  functions  which  include  time  delays 
are  handled  by  introducing  delayed  input  variables  and  then 
handling  the  transfer  function  in  the  same  manner  as  those 
defined  by  equation  (4-2).  From  equation  (4-12) 

bQ  =  3n  =  0  (4-23) 

Equations  (4-18)  and  (4-19)become 


xk+l  +  bkmlYl(t-Td)  +  bkm2Y2 (t-Td)  + 


.+  bfcn1u1(t-Td)  +  bkn2u2(t-xd)  + 


k  =  j  ,  j+n-2 


(4-24) 


x.  ,  =  -(anx.  +  anx.,,  +  ..a  , x , ,  ,  )  + 

3+n-l  0  j  1  3+1  n-1  j+n-1 


+  b  mnyn  (t-T,)  +c  ,+  b  nm.  (t-T,)  + 

n  1J  1  d  nil  d 


(4-25) 


j  being  defined  as  for  equations  (4-18)  and  (4-19) . 

As  transfer  functions  of  the  type  represented  by  equations 
(4-1)  and  (4-2)  may  occur  simultaneously  in  the  block 
diagram  a  more  general  system  is  obtained  by  identifying 
equations  (4-18)  and  (4-19)  with  the  matrix  equations: 


X 

Y 


AlX  +  B1Y  +  Clu  +  D1Y  +  Elu  i  +  D2Yd2 


FX  +  GY  +  Hu 


+  ^^D2  +  *  *  * 


(4-26-1) 


(4-26-2) 


where  Dl,  El,  respectively,  are  coefficient  matrices  for 


. 
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the  vector  of  delayed  output  variables  Y  ^  and  delayed 
external  forcing  functions  u^,  associated  with  time  delay 
The  analogous  coefficient  matrices  associated  with 
time  delay  x d2  are  D2_,  E_2  and  each  additional  time  delay 
would  require  two  new  coefficient  matrices.  For  the 
algebraic  system,  equation  (4-26-2)  is  more  general  than 
the  one  generated  by  equation  (4-25) „ 

4.5  Block  Diagrams  Containing  a  Pure  (Isolated)  Time  Delay 
A  pure  time  delay  implies  only  an  algebraic  relation¬ 
ship  between  input  and  output  of  the  type 


ypt) 


V(t-Td) 


output 


input 


(4-27) 


If  no  other  time  delay  is  allowed,  the  matrix  state 
equation  (4-20)  holds  for  this  case  too.  Referring  to  the 
general  form  for  input  shown  in  Figure  4-1  and  defined  by 
equation  (4-17)  the  input-output  relationship  for  a  pure 
time  delay  becomes 


yi(t)  =  m1Y1(t“Td)  +  m2Y2(t_Td)  + 

+  n1u1 (t— Td)  +  n2u2(t-xd)  +  ...  (4-28) 

so  that  considering  equation  (4-28)  along  with  equation 
(4-19)  the  matrix  system  becomes 

X  =  AlX  +  B1Y  +  Clu  (4-29-1) 

=  FX  +  GY  +  Hu  +  L1Y  +  MluD 


Y 


(4-29-2) 


, 

. 


32 


where  LI  and  Ml  are  the  coefficient  matrices  for  the 
delayed  inputs  given  in  equation  (4-28). 


4 . 6  Block  Diagrams  Containing  an  Isolated  Derivative  Action 
A  transfer  function  with  a  first  order  derivative 
term  implies  a  relationship  between  input  and  output  of 
the  type : 


Y±(t) 

=  axv(t) 

+  aQv ( t) 

output 

input 

input 


(4-30) 


or,  more  generally, 

yi(t)  =  a1m1y1(t)  +  a-^y^t)  +  ... 

(4-31) 

...  +  +  a^n^y^tt)  +  ... 

Note  that  in  this  case  the  inputs  have  been  limited  to 
"output  variables."  This  is  done  deliberately  to  avoid 
the  necessity  of  calculating  the  derivatives  of  external 
forcing  functions  which  would  be  undesirable  if,  for 
example,  the  external  forcing  functions  were  noisy  process 
signals.  The  only  justification  for  the  above  assumption 
was,  however,  not  to  further  complicate  the  matrix  mani¬ 
pulation  part  of  the  program. 

As  no  time  delay  in  the  form  of  transfer  function 
(4-1)  is  allowed  in  this  case,  the  matrix  system  becomes: 

• 

X  =  A1X  +  B1Y  +  Clu  (4-31-1) 


Y  =  FX  +  GY  +  Hu  +  Q2Y 


(4-31-2) 


' 
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where  Q2_  is  the  matrix  of  coefficients  a^m^,  a^m^  ,  ... 

defined  by  equation  (4-31) 

4.7  Block  Diagrams  Containg  a  Pure  Time  Delay 
and  an  Isolated  Derivative  Action 
In  this  case  the  matrix  system  obviously  contains  the 
same  coefficient  matrices  developed  in  previous  sections 
where  the  terms  were  treated  separately. 

Thus  : 

X  =  A1X  +  B1Y  +  Clu  (4-32-1) 

Y  =  FX  +  GY  +  Hu  +  Q2Y  +  LlYp  +  MluD  (4-32-2) 

4.8  Manipulation  of  the  System  of  State 
Equations  into  the  Standard  Form 
The  standard  form  of  the  state  matrix  equations  used 
in  most  texts  is: 

X  =  AX  +  BU  (4-33-1) 

Y  =  CX  +  DV  (4-33-2) 

Equations  (4-26)  ,  (4-29)  ,  (4-31)  ,  (4-32)  can  be  manipulated 

by  means  of  matrix  algebra  to  the  form  of  equation  (4-33)  . 
Some  basic  steps  of  this  manipulation  are  common  to  all 
four  sets  of  equations  and  will  not  be  repeated.  The 
procedure  consists  of: 

-  solving  the  algebraic  matrix  equation  for  (4-26-2) 


for  vector  Y , 
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-  substituting  this  result  into  the  differential  matrix 
equation  (4-26-1) , 

-  collecting  the  coefficient  matrices  of  X  and  u 

-  partitioning  if  necessary  to  conform  with 
equation  (4-33) . 

4.8.1  Standard  Case 

Consider  the  system  defined  previously  by  equation 
(4-26) 

X  =  AlX  +  B1Y  +  Clu  +  D1Yd1  +  E1^d1  +  D2YD2  +  E2ud2 

(4-26-1) 

Y  =  FX  -H  GY  +  Hu  (4-26-2) 

Equation  (4-26-2)  can  be  solved  for  vector  Y  as  shown 

(I-G)Y  =  FX  +  Hu  (4-34) 

where  I_  is  the  identity  matrix. 

* 

The  matrix  (I-G)  is  generally  non-singular,  hence  the 
inverse  exists.  Premultiplying  both  sides  of  equation 
(4-34)  by  (I-G)  ^  yields 

Y  =  (I-G) _1FX  +  (I-G) _1Hu  or 

Y  =  FIX  +  Hlu  (4-35) 

where  Fl  =  (I-G)  ^F 

Hi  =  (I-G) _1H 

*Exceptions  are,  for  example,  a  unity  positive  feed¬ 
back  to  a  block  with  transfer  function  =  1  in  which  case 
a  diagonal  element  becomes  zero. 
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Substituting  (4-35)  into  (4-26-1)  and  collecting  like 
matrices 

• 

X  =  (A1  +  BlFl ) X  +  (Cl  +  BlHl)u  +  D1Y  x  +  Elu  x  + 

+  2_2Yd2  +  L2ud2  (4-36) 

Delaying  both  sides  of  equation  (4-35)  by  and  t^2 


1 — 1 

Q 

>H| 

=  — -D1 

+  S-^di 

(4-37-1) 

-D2 

— -D2 

+  — -D2 

(4-37-2) 

Substituting  (4-37)  into  (4-36)  and  collecting  like 
matrices 

• 

X  =  (Al  +  BlFl ) X  +  (Cl  +  B1H1) u  +  DlFlXDl  +  (Fl  +  DlHl)u 

+  D2F1Xd2  +  (E2  +  D2H1)ud2  (4-38) 

Equation  (4-38)  is  now  of  the  form  defined  by  equation 
(4-33-1) 

X  =  AX  +  BU  (4-33-1) 

where  A  =  A1  +  BlFl 

(4-39) 

B  =  [  (C1+B1H1)  |  (E1+D1H1)  !  DlFl  !  (E2+D2IU)  !  D_2Fl] 


% 


. 

36 


U 


Equation  (4-35)  is  of  the  form  defined  by  equation 
(4-33-2) 


Y  =  CX  +  DV  (4-33-2) 

where  C 

D 
V 

The  desired  state  matrix  equations  have  therefore  been 
found  in  terms  of  the  working  matrices  built  up  from  the 
original  transfer  function  data. 

4.8.2.  Isolated  Time  Delay 
The  matrix  equations  resulting  from  systems  contain¬ 
ing  isolated  time  delays  were  given  as 


=  FI 
=  HI 
=  u 


X  =  AlX  +  BlY  +  Clu  (4-29-1) 

Y  =  FX  +  GY  +  Hu  +  L1Y  +  MluD  (4-29-2) 

With  respect  to  equation  (4-29-2)  the  first  step  is 
analogous  to  the  one  described  for  the  previous  case. 


. 
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(I-G)Y  =  FX 

+  Hu  + 

+  M1ud 

(4-41-1) 

1  = 

•G)  _1FX 

+  + 

(I-G) _1Hu  +  + 

(i-g)_1yd  + 

+ 

(I-G) "1M1ud 

or, 

in  simplified  notation 

Y  =  FIX  +  Hlu  +  L2Yd  +  M2ud  (4-41-2) 

Because  of  the  nature  of  a  pure  time  delay,  non  zero  rows 
in  matrices  L2_  and  M2_  (or  else,  LI  and  MIL)  correspond  to 
zero  rows  in  matrices  Fl  and  Hi  (or  else,  F  and  H) .  More 
generally,  the  product  of  matrices  L2  and  M_2  by  the 
transpose  matrix  Fl'  of  Fl  or  HI'  or  H  results  in  a  null 
matrix ,  i . e . , 

L2F1 '  =  L2H1 '  =  M2F1 '  =  ...  =0  (4-42) 

This  condition  allows  equation  (4-41)  to  be  separated  into 
two  parts : 


I1Y  =  FIX  +  Hlu 

(4-43-1) 

12 Y  =  L2Yd  +  M2ud 

(4-43-2) 

where  I_1  +  I_2  =  I  (identity  matrix) 

Delaying  equation  (4-43-1)  and  premultiplying  the  result 
by  L2  yields 

L2Yd  =  L2FlXD  +  L2H1ud 


(4-44) 
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Adding  (4-43-1)  to  (4-43-2)  and  substituting  L2YD  with  the 
expression  given  in  (4-44) 


Y  =  FIX  +  Hlu  +  (M2+  L2H1)ud  +  L2F1XD  (4-45) 

Premultiplying  (4-45)  by  B1  and  substititing  the  result  into 
equation  (4-29-1)  in  place  of  Y  yields: 


X  =  (Al  +  B1F1)  X  +  (C1+  BlHl)u  + 


+  Bl  (M2  +  L2H1)Hd  +  BlL.2.?-^  (4-46) 

Equation  (4-46)  is  of  the  desired  type  as  expressed  in 
equation  (4-33-1) 

X  =  AX  +  BU  (4-33-1) 

where  A  =  A1  +  BlFl 

B  =  [ (Cl  +  B1H1) ! B1 (M2  +  L2H1)  j  B1L2F1]  (4-47) 


U  = 


u 


-D 


& 


Equation  (4-45)  is  also  of  the  desired  type 


Y  =  CX  +  DV 


(4-33-2) 
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where 


C  =  FI  ;  D  =  [HI  !  (M2  +  L2H1)  !  L2F1] 


V  = 


u 


Hd 


*d 


4.8.3  Isolated  Derivative  Action 
For  systems  containing  isolated  derivative  terms  the 
appropriate  matrix  equations  derived  earlier  are: 


X  =  AlX  +  B1Y  +  Clu  (4-31-1) 

Y  =  FX  +  GY  +  HU  +  Q2Y  (4-31-2) 


The  mathematical  manipulation  to  reduce  equation  (4-31)  to 
standard  form  is  as  follows 


(I-G) Y  =  FX  +  HU  +  Q2Y  or 

Y  =  (I-G) ~1FX  +  (I-G)_1Hu  +  (I-G)_1  Q2Y  or 

in  simplified  notation 

Y  =  FIX  +  Hlu  +  Q3Y  1  (4-50) 

Matrix  Q_3  has  the  same  properties  with  respect  to  matrices 
FI  and  HI  as  matrices  M2_  and  L2  of  the  previous  section, 

1  •  G  •  f 


Q3F1'  =  Q3H1 ' 


0 


* 
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In  addition,  to  avoid  the  presence  of  derivatives  of 
external  forcing  functions  the  following  must  be  true 

Q3H1  =  0  (4-51) 

This  equation  implies  that  no  algebraic  relationship  can 
exist  between  external  forcing  functions  and  input  to  a 
derivative  action  transfer  function,  and  limits  therefore 
the  location  of  an  isolated  derivative  action  in  the 
block  diagram.  Under  these  assumptions  equation  (4-50) 
can  be  differentiated  to  give 

•  • 

Y  =  FIX  4-  Hlu  (4-52) 

Premultiplying  equation  (4-52)  by  Q3 ,  substituting  the 
result  into  equation  (4-50) 

Y  =  FIX  +  Hlu  +  Q3F1X  (4-53) 


Equation  (4-53)  after  being  premultiplied  by  B1  can  be 
substituted  into  (4-31-1). 


X  =  (A1  +  BlFl ) X  +  (Cl  +  BlHl) u  +  B1Q3F1X  or 


( I-B1Q3F1) X  =  ( Al  +  BlFl ) X  +  Cl  +  BlHl)u 


(4-54) 


Premultiplying  both  sides  of  equation  (4-54)  by  ( I-B1Q3F1) 


rl 


X  =  (I-B1Q3F1)  1  (Al  +  BlFl) X  +  (I-B1Q3F1)  1 (Cl  +  BlHl) u 


(4-55) 


Equation  (4-55)  is  of  the  type 


X 


AX  +  BU 


(4-33-1) 


I 
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where  A  =  (I-B1Q3F1)  1 (Al  +  B1F1) 

B  =  (I-B1Q3F1) 1 (Cl  +  BlHl ) 

U  =  u  (4-56) 

Finally  substituting  equation  (4-33-1)  into  (4-53)  and 
collecting  coefficient  matrices 

Y  =  (FI  +  Q_3FlA)  X  +  (HI  +  Q_3F1B)  u  (4-57) 

This  equation  is  of  the  desired  type 

Y  =  CX  +  DV  (4-33-2) 

where  C  =  FI  +  Q3F1A 

D  =  HI  +  Q2F1B 

V  =  u  (4-58) 

4.8.4.  Isolated  Time  Delay 
plus  Derivative  Action  Terms 
This  case  will  not  be  discussed  as  it  merely  is  a 
combination  of  the  last  two. 

4.9  Solution  of  the  Matrix  State  Equation 
Saucedo  and  Schiring  (23)  discuss  several  methods  of 
solving  the  matrix  state  equation  for  continuous  and 
discrete  systems  in  Chapters  12  and  13,  respectively,  of 
their  text.  The  following  sections  summarize  the  methods 
used  in  this  work. 

The  complete  solution  of  the  matrix  state  equation 


I 
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X  =  AX  +  BU 


(4-33-1) 


Y  =  CX  +  DV 


(4-33-2) 


is  given  by 


X(t)  =  cj)  ( t-T )  X  (t  )  +  \  <j>  ( t-X )  BU  ( A )  dA  for  t  -  x 


(4-59) 


Where  <£(t-T)  is  the  fundamental  or  state  transition  matrix 
defined  by  the  infinite  series 


J(t-T)  =  e— (t-T)  =  I  +  *(t-T>+  *2(t-T)2  +  ... 


1  ! 


2  ! 


n  , ,  >  n 

A  (t-x) 

*  .  .  -t*  — 


(4-60) 


n 


i 


and  x  is  the  initial  time. 

4.10  Matrix  State  Difference  Equation 
The  dependence  of  the  state  of  the  system  at  the 
k  +  1  instant  on  the  previous  (kth)  state,  the  previous 
input  and  the  time  interval  (sampling  period)  is 

-k+1  =  £(T)^k  +  Hmu(kT)  k  =  0,1,  ...  (4-61) 

where  £(T)  is  the  fundamental  matrix  calculated  at  the 
time  (sampling  period)  T,  and 


H  (T) 


T 

^<J)_(  t)  Bdt 


(4-62) 


0 


, 


' 
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Equation  (4-61)  along  with  the  corresponding  discrete 
version  of  (4-33-2) 

Yk  =  CXk  +  DV(kT)  k  =  0,1,2,  .  .  .  (4-63) 

can  be  used  to  calculate  the  time  domain  response  of  a 
system  subject  to  external  forcing  functions,  once  the 
fundamental  matrix  4>_(T)  has  been  evaluated. 

4.11  Evaluation  of  the  Fundamental  Matrix 

One  way  of  determining  the  fundamental  matrix  is  the 
power  series  method  which  consists  essentially  of  evalu¬ 
ating  equation  (4-60)  directly.  The  second  method  is 
based  on  the  so-called  Cayley-Hamilton  Technique  and  is 
described  in  the  following  section. 

4.12  The  Cayley-Hamilton  Technique 

At 

In  this  technique  the  matrix  function,  such  as  e— 
where  A  is  a  square  matrix  of  order  n,  is  first  expressed 
as  an  equivalent  matrix  polynomial  of  degree  n-1.  The 
coefficients  of  this  polynomial  are  then  determined  by 
solving  a  set  of  n  linear  algebraic  equations  which  are 
functions  of  the  eigenvalues  of  A.  This  technique  is  based 
on  the  homonymous  theorem  which  states  that  any  square 
matrix  A  satisfies  its  own  characteristic  equation,  i.e., 
if  P(A)  is  the  characteristic  polynomial  of  A,  then 

P  (A)  =  0_  (4-64) 


Now  let  N (A)  be  a  matrix  polynomial  of  higher  degree  than 


B  .me  a y  x  :  3:-  n  '  n  -  »s 

.-A  io  S9ul£V.'*9p  C3  Sftt  io  :f  )  Jl  ^Ofll/3: 
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"n",  the  order  of  matrix  A,  Then  the  polynomial  N(A)  can 
be  expressed  as 

N ( A )  =  Q ( A ) P ( A )  +  R ( A )  (4-65) 

where  R(A)  is  the  remainder  polynomial  of  degree  n-1  and 
Q ( A )  is  the  quotient  polynomial. 

However,  since  P(A)  =  0  for  A  =  A^  i  =  1,2,  ...  n 
it  follows  that  under  the  same  conditions 

N(A)  =  R ( A)  (4-66) 

Correspondingly  the  matrix  polynomial  N (A)  which  is  of 
order  greater  than  P (A)  can  be  written  as 

N  (A)  =  Q  (A)  P  (A)  +  R  (A)  (4-67-1) 

and  since  P  (A)  =  0_  by  the  Cayley-Hamilton  theorem, 
then  N (A)  =  R (A)  (4-67-2) 

where  R(A)  is  a  matrix  polynomial  of  degree  n-1  defined  as 
the  remainder  polynomial  after  division  of  N(A)  by  P(A). 

In  particular  the  infinite  series  given  by  equation 
(4-60)  which  is  rewritten  with  the  time  variable  dropped 
for  simplicity  of  notation,  has  the  form: 


A 

A2 

A3 

A  j 

—  + 

— 

+  — 

•  •  •  """""  • 

1! 

2  ! 

3! 

j! 

Being  absolutely  convergent,  this  equation  can  be  expressed 
using  (4-67-2),  as  a  matrix  polynomial  of  degree  n-1: 

N (A)  =  e—  =  anI  +  a.A  +  a0A^  +  ...a  , An  ^  (4-69) 

—  0—  1—  2 —  n-1— 


; 
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and 

Ai  2 

N(A.)  =  R(A.)  =  e  =  an  +  a, A.  +  anA.  +  ... 

1  i  0  1  l  2  l 

+  ...  (4-69-1) 

The  real  coefficients  ctQ,a^,  .  .  .  a  of  equation  (4-69-1) 
are  calculated  by  generating  a  set  of  n,  linear  algebraic 
equations  as  functions  of  the  eigenvalues  A^,  i  =  1,  2...n. 
For  the  case  where  all  n  eigenvalues  of  the  matrix  A  are 
distinct  then  the  following  set  of  equations  is  generated 
directly  from  equation  (4-66) 

A,  y  ^ _  "I 

N(A,)  =  R(A,)  =  e  =an+a1A1  +a„An  +  ...a  .A, 

i  1  01121  n-1  1 

A  y  y  _  -| 

N(A2)  =  R(A2)  =  e  =  aQ  +  +  a2A2  +  •  • 


A  2 

N(A  )  =  R(A  )  =  e  =  an  +  a, A  +  anA  + 
n  n  0  In  2  n 


,  n-1 
a  ,  A 
n-1  n 


(4-70) 


For  the  case  where  an  eigenvalue  A^  is  repeated  s^  times 
(multiplicity  s^)  then  only  one  linear  independent 
equation  in  A^  can  be  obtained  by  substituting  A^  into 
equation  (4-69-1)  .  The  remainder  s^-1  equations  associated 
with  the  repeated  eigenvalue  A^  are  found  by  differenti¬ 
ating  both  sides  of  equation  (4-66) 


dkN(A) 


dA 


dkR(A) 


dA 


A=A  . 

l 


k  =  1 , 2  ,  . . . s . -1 

'  l 


A=A  . 

l 


(4-71) 
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For  the  special  case  of  an  exponential  matrix  function, the 
differentiation  is  performed  inequation  (4-69-1). 

Complex  eigenvalues  may  also  occur.  As  matrix  A  is  a 
real  matrix  they  will  be  complex  conjugate  eigenvalues. 

Let  A.  =  a  -!-  jb  and  A.  =  a  -  jb 

1  J  1C  J 

be  a  pair  of  complex  conjugate  eigenvalues. 

From  equation  (4-70)  follows: 

A.  . 

N(A^)  =  e  1  =  ea  -1  =  ea(cos  b  +  j  sin  b)  =  +  a^(a  +  jb)  + 

+  a  ,  (a  +  jb) n  1 
n-1  J 

A.  _ 

N(A^c)  =  e  1C  =  ea  ^  =  ea(cos  b  -  sin  b)  =  cXq  +  a^(a  -  jb)  + 

.  /  ...n-l 

an-l(a  "  Db) 

Separating  the  real  and  imaginary  terms  on  the  righthand 
side  of  the  above  equations: 

d.  d.  2  2 

N(A.)  =  e  cos  b  +  j  e  sin  b  =  aA  +  a, a  +  a~  (a  -  b  )  +... 

l  J  0  12 

+  j [ 0  +  a^b  +  2a2ab  +  ...] 

0.  3.  2  2 

N(A.  )  =  e  cos  b  -  j  e  sin  b  =  a~  +  a, a  +  a„(a  -  b  )+... 
ic  J  012 

-  j  [0  +  a^b  +  2a2ab  +  ...] 
The  imaginary  terms  can  be  eliminated  defining  the 


4 

-> 
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following  two  equations : 


N  (X.  )  +  N  (X  .  ) 

1  1C 


a  , 

e  cos  b 


cLq  +  ot^a  + 


2 


(4-72-1) 


ea  sin  b  =  0  +  a^b  +  2a2a^>  +  .  .  . 


2 


(4-72-2) 


Equations  (4-72)  represent  two  algebraic  equations,  in 
terms  of  a,  associated  with  eigenvalues  from  matrix  A. 
Thus  the  coefficients  a  in  equation  (4-69)  can  be  deter¬ 
mined  by  solving  the  set  of  n  algebraic  equations  defined 
by  (4-70)  ,  (4-71)  and  (4-72)  .  This  set  of  equations  can 

be  shown  in  matrix  notation  as 


(4-73) 


N(X)  =  CCa 


where  CC  is  an  n  by  n  square  matrix  which  is  never  singular 
because  of  the  peculiar  way  it  is  built. 

Equation  (4-73)  may  therefore  be  solved  for  a 


a  =  CC  1N(A) 


(4-74) 


Therefore  for  any  given  matrix  A,  the  substitution  of  the 
values  of  a  calculated  from  equation  (4-74)  into  equation 
(4-69)  definesthe  exponential  matrix  function  and  by 
analogy  to  equation  (4-60)  the  fundamental  or  transition 
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matrix  as 

n-1 

<p  ( t-x)  =  E  a .A3 (t-x) 3  (4-75) 

j=0  3 


In  their  comparison  of  methods  for  determining  the 
transition  matrix  (p  (t  )  Saucedo  and  Schiring  (23,  p.  609) 
conclude  that  "For  computer  solution  the  power  series  or 
the  Cay ley-Hamilton  method  would  probably  be  the  first 
choice."  Both  of  these  techniques  have  been  incorporated 
into  the  computer  program  produced  as  part  of  this  thesis 
and  a  comparison  of  the  results  obtained  by  applying  both 
techniques  to  the  same  problem  are  presented  in  Chapter 
VI,  examples  (6-1),  (6-4)  and  (6-7). 

The  other  mathematical  and  numerical  techniques,  such 
as  numerical  integration,  used  in  the  balance  of  the 
computer  program  are  covered  in  basic  texts  and  are 
assumed  to  be  familiar  to  the  reader. 
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Chapter  V 

COMPUTER  IMPLEMENTATION 

The  program  is  written  in  FORTRAN  IV  language  and  is 
designed  for  implementation  on  an  IBM  1800  DACS  computer, 
as  a  non-process  program.  It  utilizes  the  "variable"  or 
non-process  area  of  core  storage  (9.7K  words,  16  bit/word) , 
auxiliary  disk  storage  and  the  following  peripheral  devices 

1442  card  reader,  punch 

1443  or  1132  printer 
1816  keyboard/printer 
1627  plotter  and/or  scope 

Because  of  its  total  length  it  was  necessary  to  divide 
the  program  into  17  parts  or  "links"  each  of  which  could 
be  executed  in  the  available  core  storage.  A  flow  diagram 
based  on  such  links  is  given  in  Figure  D-l,  Appendix  D. 
Systemwise  each  link  represents  a  new  job.  Therefore  the 
transmittal  and  storage  of  data  from  link  to  link  was  of 
basic  importance  and  was  achieved  by  the  use  of  COMMON  and 
disk  FILES. 

The  COMMON  area  was  defined  as  several  blocks  and 
variables  were  assigned  to  specific  locations  by  equiva¬ 
lence  statements.  The  structure  of  COMMON  was  thus  kept 
relatively  simple.  Table  D-l  gives  the  dimension  of  COMMON 
throughout  the  program.  Two  basic  concepts  were  followed 
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in  building  the  COMMON  storage  area. 

a.  Keep  it  as  small  as  possible  in  each  link. 

b.  Data  utilized  last  were  stored  at  the  beginning  of 
the  COMMON  area  so  they  would  not  be  affected  by  the 
frequent  changes  in  storage  assignments  or  area 
length . 

These  rules  allowed  a  more  flexible  use  of  COMMON  and 
consequently  a  more  rational  utilization  of  variable  core. 

FILES  were  extensively  used  for  coefficient  matrices 
when  building  the  state  matrix  equations  described  in 
Chapter  IV,  Theory  and  Mathematical  Basis.  Generally  each 
matrix  was  identified  by  a  separate  FILE.  For  FILE  defi¬ 
nition  and  use  see  Tables  D-2  and  D-3  of  Appendix  D.  The 
matrix  manipulation  required  to  yield  the  state  equation 
was  carried  out  in  three  blocks  in  COMMON  so  that  a  minimum 
of  space  was  required  at  any  time.  Clearly  this  restriction 
on  the  COMMON  allocated  for  this  purpose  produced  a  great 
number  of  core-disk  transfers  with  the  obvious  result  of 
slowing  down  the  program.  In  contrast  the  FILES  of  time 
domain  response  data  were  built  piecewise  by  transferring 
a  working  vector  filled  up  with  data  to  the  FILE.  This 
was  done  to  reduce  the  number  of  disk  transfer  operations, 
hence  speeding  up  the  process. 

Although  the  program  is  presently  dimensioned  for  a 
maximum  of  10  state  variables,  15  output  variables  and  10 
forcing  functions  it  can  be  easily  scaled  up  by  modifying 
the  dimension,  COMMON  and  equivalence  statements  plus  the 


' 
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size  of  FILES.  The  maximum  dimensions  of  vectors  and 
matrices,  which  are  dealt  with  columnwise  in  one  dimension, 
are  generally  equated  to  an  integer/variable  at  the 
beginning  of  the  link  so  that  only  this  variable  definition 
must  be  changed.  All  subroutines  were  written  to  be 
independent  of  variable  dimensions  similar  to  those  from 
the  IBM  Scientific  Subroutine  Package  (13)  and  thus  need 
not  be  changed  when  the  program  is  scaled  up. 

The  program,  in  general,  uses  standard  matrix 
manipulations  and  numerical  methods.  A  few  special 
programming  features  are  described  in  the  next  section. 

5 . 1  Special  Programming  Features 

Although  a  classical  and  well-known  problem  the 
calculation  of  real  distinct,  real  repeated,  complex 
conjugate  eigenvalues  originating  from  the  real,  generally 
unsymmetric  matrix  A  required  some  consideration. 

The  problem  was  solved  by  first  finding  the  coeffi¬ 
cients  of  the  characteristic  equation  and  then  its  roots 
by  using  the  Bairstow  method.  As  this  method  finds  a 
second  order  polynomial  divisor  of  the  characteristic 
polynomial,  it  was  believed  that  the  problem  of  poor 
convergence  around  a  multiple  root  and  the  problem  of 
finding  complex  roots  could  be  overcome.  The  program 
actually  includes  two  subroutines  that  represent  different 
implementations  of  the  Bairstow  method.  They  are 
mentioned  in  LOCAL  (15)  control  cards  as  only  one  is  needed 
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at  the  time . 

Other  subroutines  for  the  eigenvalue  problem  can  be 
easily  built  into  the  program  as  they  become  available  by 
utilizing  unused  values  of  "flags"  already  included  in  the 
program.  One  additional  feature  concerning  the  eigenvalues 
is  that  they  are  checked  for  their  sign  and  shifted  so 
that  the  smallest  eigenvalue  becomes  zero.  Positive 
eigenvalues  imply  instability  as  some  of  the  state  variables 
become  unbounded  by  large  values  of  time.  They  are,  there¬ 
fore,  singled  out  and  the  program  may  stop  or  continue 
according  to  an  option  specified  by  the  user.  The  shifting 
of  the  eigenvalues  was  done  to  improve  the  "scaling"  and 
reduce  numerical  errors.  In  case  that  the  eigenvalue  sub¬ 
routines  indicate  poor  convergence,  the  problem  may  still 
be  run  by  using  the  power  series  method  included  in  the 
program  package. 

The  calculation  of  the  coefficient  matrix 


H  (T) 


uses  a  trapezoidal  integration  rule.  The  "standard" 
solution  adopts  10  integration  subintervals.  Calculations 
for  example  6-1  showed  no  significant  improvement  by 
increasing  the  number  of  subintervals  to  100.  Also  a 
comparison  with  Simpson's  integration  over  150  subintervals 
did  not  show  any  significant  difference. 

Values  of  the  delayed  variables,  such  as  X^(kT-x^), 
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required  in  the  generation  of  the  time  domain  solution 
using  equations  (4-61)  and  (4-63)  are  obtained  from  a 
storage  vector.  For  example,  values  of  (kT)  are  stored 
in  the  vector  as  they  are  generated  so  that  X^(kT-T^)can 
be  obtained  from  earlier  entries  in  the  same  vector.  The 
vector  is  presently  dimensioned  as  200  and  is  used  as  a 
ring  buffer  or  a  circular  file  so  there  is  no  limit  on,  k, 
the  number  of  solution  points  generated. 

The  details  of  the  computer  implementation  can  be 
determined  by  reference  to  the  detailed  flow  diagram  in 
Figure  B-2  and  the  comment  cards  and  program  listings 
included  in  Appendices  E  and  F.  Some  of  the  provisions 
for  future  extensions  and  linkages  for  alternative 
techniques  are  also  described  in  Chapter  VII . 


■ 

' 


54 


Chapter  VI 

PROGRAM  DEMONSTRATION  AND  APPLICATIONS 

Most  of  the  work  presented  so  far  deals  with  the 
mathematical  and  computational  aspects  of  the  thesis. 
Conversely,  this  chapter  is  meant  to  emphasize  the  program 
versatility  in  dealing  with  typical  process  control  appli¬ 
cations  and  its  usefulness  in  solving  real  control 
problems . 

For  this  purpose  it  may  be  pointed  out  that  some 
graduate  students  of  this  department  are  already  using  the 
program  for  their  research  projects.  One  application  is 
the  generation  of  the  state  difference  equations  of  a 
matrix  system  model  of  a  double-effect  evaporator  installed 
in  the  department  (see  also  Example  6-1) . 

A  second  use  of  the  program  is  in  conjunction  with  a 
separate  optimal  control  program.  For  a  system  described 
by  a  state  difference  equation  model  of  the  type  produced 
by  this  program  the  optimal  control  program  generates  a 
series  of  discrete  values  of  U(t)  which  will  drive  the 
system  from  state  A  to  state  B.  These  discrete  values  plus 
the  system  equations  are  then  entered  into  this  program  to 
obtain  the  time  domain  response. 

The  applications  and  use  of  the  program  are  best 
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illustrated  by  examples.  The  examples  were  selected: 

a.  to  demonstrate  the  utilization  of  the  program  for 
typical  control  oriented  applications, 

b.  to  demonstrate  special  features  of  the  program,  as 
for  instance,  its  capability  of  handling  multifeed- 
back-loop  block  diagrams,  isolated  time  delays, 
isolated  derivative  action,  etc., 

c.  to  demonstrate  the  validity  of  the  program  by 
comparing  the  results  found  using  different  methods 
of  calculation  and  to  illustrate  the  effect  of  some 
of  the  program  parameters  such  as  integration  step 
sizes . 

The  discussion  of  each  example  is  organized  into  the  same 
format  for  ease  of  reference.  The  computer  produced 
documentation  for  each  example  is  included  in  Appendix  C. 


bsisloax  ^ amsips cb  ?too Id  qooI-;Ac“  ;,d 
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6.1 

Example  6-1  Five  Equation  Evaporator  Model 

Control 

Purpose 

To  find  the  coefficient  matrices  of  the  state 

difference  equation  for  use  in  real-time 

computer  control  and  the  open-loop  response  of 

a  fifth  order  state  equation  model  of  a  double 

effect  evaporator.  The  derivation  of  the  model 

shown  in  Figure  6-1  is  outlined  in  a  separate 

(*) 

report 

Program 

Purpose 

-  to  check  the  performance  of  the  program  for  a 

realistic  matrix  model. 

-  to  check  the  accuracy  of  the  solution. 

-  to  illustrate  that  the  steady  state  values  for 

the  forcing  functions  can  be  entered  as  step 

functions . 

Results 

The  response  of  the  outlet  concentration  and 

the  holdup  in  the  two  effects  caused  by  an 

inconsistent  set  of  initial  conditions  is 

included  in  the  listing  on  page  C-4. 

Comments 

(*) 

Newell  used  Simpson's  integration  rule  with 

150  steps  for  a  sampling  interval  of  1  sec. 

The  results  from  this  example  were  in  good 

agreement  with  his  for  the  same  sampling 

interval  and  integration  intervals  of  0.1  sec. 

( *) 

Linear  Evaporator  Model",  internal  department 
research  report,  R.  B.  Newell,  D.  G.  Fisher. 
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FIGURE  6-1  Five  Equation  Evaporator  Model 
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6.2 


Control 

Purpose 


Program 

Purpose 


Results 


Example  6-2  Controller  Constants  from  Library 

To  determine  the  time  domain  response  of  the 
system  illustrated  in  Figure  6-2-1  for  step 
disturbances  in  set  point  and  load.  Ten  dif¬ 
ferent  sets  of  "optimum"  controller  constants, 
as  listed  in  Table  6-1,  were  used  and  the 
response  of  the  output  compared. 

-  to  check  the  standard  "block  diagram  input" 
section . 

-  to  illustrate  handling  of  a  time  delay  of  the 
same  order  of  magnitude  as  the  process  time  lag. 

-  to  show  the  ability  of  the  program  to  supply 
"optimum"  controller  constants  for  specified 
standard  processes  and  control  criteria. 

-  to  demonstrate  the  ability  to  rerun  a  problem 
several  times  by  entering  only  the  new 
controller  constants. 

-  to  illustrate  the  special  option  of  producing 
multiple  plots  on  one  graph. 

The  time  domain  response  of  the  system  output 
to  a  step  change  in  set  point,  for  eight  dif¬ 
ferent  sets  of  controller  constants  is  given 
in  Figure  6-2-2.  The  response  to  a  unit  step 
change  in  load  is  given  in  Figure  6-2-3. 
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Comments 


Note  the  significant  differences  in  response 
for  different  criteria.  Since  the  error  is 
always  fractional  the  ISE  criterion  gives 
larger  deviations  than  the  IAE  criterion. 

Pages  C-9  and  C-10  of  Appendix  C  are 
copies  of  the  input/output  messages  to  plot 
response  1  in  a  non-standard  format  and  change 
from  case  1  to  2 . 

Numerical  values  for  the  process  transfer 
function  parameters  were  within  the  range 
specified  in  the  original  papers. 

Specifically  the  ranges  of  process  param¬ 
eter  values  for  which  this  option  may  be  used 
are  as  follows: 

Criteria  1  through  6  of  Table  6-1 

0  <  xd/i  <  1.0.  [reference  (20)] 

Criteria  7  and  8  of  the  same  Table 

0.1  ^  t^/t  ^  1°0  [reference  (5)] 

where  x^  =  delay 


x  =  lag 
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TABLE  6-1 


Library  Supplied  Controller  Constants  for  the  PI  Controller 
of  Example  6-2 


Criteria 

Code 

Servo  Problem 

Regulatory  Problem 

K 

c 

TI 

K 

c 

TI 

Ziegler-Nichols 

1 

0 . 1125 

1,3332 

—  — 

— 

3-C 

2 

0.1146 

0,4073 

— 

— 

IAE 

3 

0o 1226 

0.7020 

— 

— 

ISE 

4 

0 . 1616 

0.8619 

— 

— 

ITAE 

5 

0,1068 

0,6375 

— 

— 

Cohen-Coon 

6 

0,1332 

1,0347 

— 

— 

Quickest  response 

+  20%  overshoot 

7 

0,0750 

0,5000 

0.0875 

0.9333 

Quickest  response 

without  overshoot 

8 

0.0437 

0 . 5833 

0  o  0750 

1.6000 

FIGURE  6-2-1  Block  Diagram  for  Example  6-2 
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COMPARISON  OF  RESPONSES 
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(  E  )  A 


FIGURE  6-2-2  Time  Domain  Response  for  Example  6-2:  Set  Point  Change 


COMPARISON  OF  RESPONSES 
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(  E  )  A 


FIGURE  6-2-3  Time  Domain  Response  for  Example  6-2:  Load  Change 
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6 . 3  Example  6-3  Closed-Loop  Tuning 

To  illustrate  the  Ziegler-Nichols  method  for 
closed-loop,  on-line  tuning  of  a  standard 
control  loop  such  as  that  defined  by  the  block 
diagram  in  Figure  6-3-1. 

-  to  test  handling  of  an  isolated  time  delay. 

-  To  show  that  the  summing  junction  which  is 
normally  put  in  the  block  diagram  to  generate 
the  error  signal  can  be  combined  with  the 
controller . 

-  To  test  the  ability  of  the  program  to  handle 
oscillatory  responses. 

Figure  6-3-2  shows  the  closed-loop  responses. 

The  ultimate  gain  and  frequency  were  found  from 
the  graph  to  be: 

K^.  =  6.9  ;  P^  =  4  time  units/cycle 
Controller  constants  calculated  from  these 
values  according  to  Ziegler-Nichols  criteria 
are  shown  in  Table  6-2.  Responses  of  the  same 
system  for  a  P,  PI  and  PID  controller  using 
settings  of  Table  6-2  are  shown  in  Figure  6-3-3. 
Results  are  in  good  agreement  with  those  found 
in  Coughanowr-Koppel  (6)  for  the  same  example 
(example  19.3,  page  242).  The  output  variable 
Y(3)  in  Figure  6-3-3  for  the  case  of  a 
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Comments 


proportional  controller  is  delayed  of  0.5  time 
units  with  respect  to  Y(2)  for  the  same  type 
of  controller.  This  confirms  the  proper 
handling  by  the  program  of  isolated  time  delays. 

The  ability  to  change  the  controller  transfer 
function  from  an  algebraic  (proportional)  to 
one  which  adds  one  or  two  additional  state 
variables  (PI  or  PID  control,  respectively) 
and  to  rerun  the  problem  was  again  utilized  in 
this  example.  Closed-loop  tuning  is  a  well 
known  technique  to  estimate  controller  constants. 
It  basically  consists  in  substituting  for  the 
actual  controller,  a  proportional  one  having 
an  arbitrary  (small)  value  for  the  gain. 

Observing  the  closed-loop  response  of  the 
system  to  an  external  disturbance,  the  gain  is 
increased  until  sustained  oscillations  are 
produced.  This  value  of  the  "ultimate"  gain 
and  the  frequency  of  the  oscillation  are  used 
in  determining  the  constants  for*  a  P,  PI  or 
PID  controller  using  Ziegler-Nichols '  criteria. 
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TABLE  6-2 


Ziegler-Nichols  Controller  Settings  for  Example  6-3 


Type  of  Controller 

Controller  Constants 

K 

P 

TI 

td 

: 

P 

3.45 

—  — 

—  — - 

PI 

3.10 

3.22 

— 

PID 

4.15 

2.00 

0 . 5 

FIGURE  6-3-1  Block  Diagram  for  Example  6-3 
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FIGURE  6-3-2  Time  Domain  Response  for  Example 


ZIEGLER-NICHOLS  CONTROLLER  SETTINGS 
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6.4 

Example  6-4  Power  Series  Method  versus 

Cay ley-Hamilton  Technique 

Control 

Purpose 

To  determine  the  time  domain  response  of  the 

system  defined  by  the  block  diagram  in  Figure 

6-4-1.  This  system  has  non-unity  feedback  and 

a  process  transfer  function  containing  a  time 

delay  in  the  numerator  and  a  second  order  poly¬ 
nomial  with  complex  roots  in  the  denominator. 

Program 

Purpose 

-  to  confirm  the  validity  of  the  Cay ley-Hamilton 

technique  in  case  of  complex  eigenvalues.  This 

technique  was,  in  fact,  extended  in  this  work 

to  account  for  complex  eigenvalues  as  well  as 

distinct  and  repeated  ones . 

-  to  illustrate  the  option  in  the  program  to 

rerun  the  same  problem  using  different  calcul- 

ational  methods  and/or  parameters.  In  this 

case  the  method  of  calculating  the  fundamental 

matrix  was  changed  from  the  Cayley-Hamilton  to 

the  power  series  option. 

Results 

Results  are  shown  in  Figure  6-4-2  for  two 

values  of  proportional  controller  constant. 

Comments 

In  comparing  the  results  it  is  important  to 

emphasize  the  fact  that  the  two  methods  are 

totally  unrelated  so  that  the  good  agreement 

supports  the  accuracy  of  each  method.  Good 
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agreement  between  the  two  methods  was  also 
found  in  example  6-1.  Differences  start 
showing  up,  however,  for  an  improper  choice  of 
the  time  interval  because  of "round-off "errors . 
A  more  detailed  investigation  in  this  respect 
is  carried  out  in  example  6-7.  Note  that  the 
arbitrary  choice  of  the  proportional  constant 
did  not  give  "good"  control.  No  attempt  was 
made  to  find  optimum  values. 
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FIGURE  6-4-1  Block  Diagram  for  Example  6-4 


71 


O 

LJ 

O 

o 

Lfl 

C) 

o 


LD 

<C 

!>• 

CF 

Lu 


I — i 

ol — I 


LjJ  - - 1 

cn_J 

cn 

T>~ 
—  <C 


h- 


o 


i 

<sD 


FIGURE  6-4-2  Time  Domain  Response  for  Example 
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6.5 

Example  6-5  Multifeedback  Loop  Block  Diagram 

Control 

Purpose 

This  example  was  selected  to  show  the  capa¬ 
bility  of  the  program  to  handle  multiloop 

systems  as  well  as  special  types  of  transfer 

functions.  It  is  given  as  exercise  A-4-1, 

page  223  in  Ogata  (22) .  The  block  diagram  is 

shown  in  Figure  6-5-1. 

Program 

Purpose 

• 

-  to  test  the  program  with  systems  that  have 

multiple  feedback  loops . 

-  to  test  handling  of  an  isolated  derivative 

term. 

-  to  illustrate  the  inclusion  of  a  pure  integral 

term  (zero  pole)  in  the  process  transfer 

function . 

-  to  demonstrate  accuracy  of  the  eigenvalue  and 

the  time  domain  response  calculations . 

Results 

The  time  domain  response  for  a  unit  step  change 

in  set  point  is  given  in  Figure  6-5-2  for  two 

variables  Y(4)  and  Y(5) .  From  the  block 

dY  ( 4 ) 

diagram  Y(5)  =  :  this  is  graphically 

confirmed  in  Figure  6-5-2. 

Comments 

The  documentation  included  in  Appendix  C  for 

this  example  is  typical  of  a  "second  level"  of 

documentation  (NPRTY  =  5,  see  User’s  Manual, 

Appendix  A) .  This  was  done  to  exemplify  this 
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feature  of  the  program  and  to  show  the  eigen¬ 
values  of  coefficient  matrix  A:  they  are  the 
same  as  those  given  in  the  cited  textbook. 
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FIGURE  6-5-1  Block  Diagram  for  Example  6-5 
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FIGURE  6-5-2  Time  Domain  Response  for  Example 
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6.6  Example  6-6  Effect  of  Negligible  Time 
Lags  on  the  Time  Domain  Response 


Control 

Purpose 


To  investigate  the  effect  of  several  time 
constants  on  the  response  of  the  system  defined 
in  Figure  6-6-1  to  a  unit  step  change  in  set 
points.  Three  cases  were  evaluated: 


Case 

G 

V 

G 

m 

1 

1/  ( .Ols+1) 

1/ ( .OOls+1) 

2 

1/ ( .Ols+1) 

1 

3 

1 

i 

1 

Since  the  time  constants  of  G  and  G  were 

v  m 

small  with  respect  to  the  process  time  constants, 
it  was  expected  that  the  output  response  would 
be  similar  for  all  three  cases. 


Program  To  illustrate  the  ability  of  the  program  to 

Purpose 

handle  systems  where  the  eigenvalues  differ  by 
a  factor  of  about  1000. 


Results  The  time  domain  response  of  the  output  variable 

Y(3)  is  plotted  and  compared  for  these  three 
cases,  in  Figure  6-6-2  and  again  in  Figure 
6-6-3  over  a  larger  time  range. 

Comments  The  time  domain  response  for  each  case  was 

identical  as  shown  by  Figure  6-6-3  where  all 
the  curves  are  superimposed  on  one  another. 


The  modification  of  the  block  diagram  from 
Case  1  to  Case  3  was  made  at  the  console 
keyboard  by  utilizing  once  more  the  user's 
intervention  capability  of  changing  transfe 
function  and  rerunning  the  program. 


.m b  :pc  r  \ 
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FIGURE  6-6-1  Block  Diagram  for  Example  6-6 


COMPARISON  OF  RESPONSES 
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00  3005 


(  E  )  A 


FIGURE  6-6-2  Time  Domain  Response  for  Example  6-6:  Initial  Response 


COMPARISON  OF  RESPONSES 
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(  E  )  A 


FIGURE  6-6-3  Time  Domain  Response  for  Example  6-6:  Complete  Response 


81 


6- 

-7  Example  6-7  Accuracy  of  Calculations 

Control 

Purpose 

To  investigate  the  response  of  the  system 

defined  in  Figure  6-6-1  to  a  unit  step  change 

in  set  point. 

Program 

Purpose 

-  to  compare  the  Cayley-Hamilton  versus  the 

power  series  method  for  calculating  the 

fundamental  matrix. 

-  to  investigate  the  effect  of  the  integration 

interval  on  the  time  domain  response. 

-  to  gain  experience  with  a  system  where  the 

eigenvalues  differ  by  a  factor  of  1000. 

Results 

The  time  domain  response  of  the  controlled 

output  variable  is  plotted  in  Figures  6-7-1, 

6-7-2  and  6-7-3. 

Comments 

The  block  diagram  shown  in  Figure  6-6-1  was 

used  again  in  this  example  because  of  the  wide 

range  of  magnitudes  of  the  eigenvalues  (1  to 

1000) .  This  is  expected  as  the  eigenvalues 

are  related  to  the  time  constants  of  the  block 

diagram.  A  study  of  the  effect  of  the  time 

interval  on  the  final  response  for  a  unit  step 

change  in  set  point  was  carried  out  by  rerun¬ 
ning  the  program  several  times  after  having 

made  the  desired  changes.  In  other  runs  the 

power  series  method  was  used  in  place  of  the 

i 

h&3r>sq::s  ex  sir'1. 

Jc  J'  sj  . 
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standard  Cay ley-Hamilton  technique.  Figure 
6-7-1  shows  the  effect  of  several  integration 


intervals  on  the  initial  response.  Notice 
that  the  power  series  method  gives  identical 
response  to  the  Cay ley-Hamilton  technique  only 
for  an  integration  interval  of  .0001  (this 
value  is  approximately  equal  to  1/10  of  the 
reciprocal  of  the  largest  entry  in  matrix  A) . 
Figure  6-7-3  extends  those  responses  to  larger 
time  range  for  the  Cayley-Hamilton  technique 
only.  It  is  interesting  to  point  out  that 
increasing  the  integration  interval  causes  the 
system  to  behave  like  a  physically  "unstable 
system"  whereas  limited  accuracy  and  round  off 
errors  are  the  true  cause  of  the  observed 
"instability".  Figure  6-7-2  shows  the  response 
of  the  same  system  for  two  values  of  the 
integration  interval:  0.001  and  0.002.  In 
the  first  case  the  two  methods  are  identical, 
in  the  second  the  power  series  produces  unreli¬ 
able  results.  Because  of  round  off  errors 
originating  in  the  computation  of  successive 
powers  of  matrix  A,  it  is  important  to  select 
a  proper  value  for  the  time  interval.  Experi¬ 
ence  gained  from  the  examples  included  here 
indicates  that  the  integration  interval  can 
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be  estimated  as: 


Integration  DELTH 
interval 


0.1 _ 

largest  entry  in  A  matrix 


_ _____ _ O.JL _ 

largest  eigenvalue  of  matrix  A 

_ 0.1 _ 

smallest  time  constant  in  the  block  diagram 


Furthermore  the  integration  interval  is  partic¬ 
ularly  important  when  using  the  power  series 
method.  The  Cay ley-Hamilton  technique,  appears 
to  tolerate  a  time  interval  ten  times  larger 
than  recommended  above  without  any  appreciable 
error.  In  this  regard  the  Cay ley-Hamilton 
technique  is  superior  to  the  power  series 
method.  To  complete  the  comparison  between 
Cayley-Hamilton  and  power  series  methods, 
running  times  for  some  of  the  discussed 
examples  were  taken.  They  are  shown  in  Table 
6-3.  No  conclusion  may  be  drawn  as  to  which 
method  is  faster  in  the  range  of  dimensions  of 
the  problems  investigated.  Running  time  will 
increase  with  the  dimension  of  the  problem; 
a  greater  difference  between  the  two  methods 
would  likely  show  up  for  larger  matrices. 


\ 
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(  E  )  A 


FIGURE  6-7-1  Time  Domain  Response  for  Example  6-7:  Initial  Response 
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(  E  )  A 


FIGURE  6-7-2  Time  Domain  Response  for  Example  6-7:  Complete  Response 
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FIGURE  6-7-3  Time  Domain  Response  for  Example  6-7:  Complete 
for  Cayley-Hamilton  Technique 
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TABLE  6-3 

.  .  * 
Running  Time  for  Examples  6-1 , 6-2 , 6-3 , 6-4 


Example 

Type  of 

Input 

Number  of  State 

Variables 

Time (sec) 

Power 

Series 

Cayley- 

Hamilton 

6-1 

matrix 

5 

23  o  2 

34.2 

6-2 

transfer 

function 

2 

o 

i — 1 

CM 

o 

o 

1 — 1 
<N 

6-3 

transfer 

function 

2 

30.7 

32 . 0 

6-3 

trans  fer 

function 

3 

00 

o 

1 — 1 

36 . 0 

6-4 

transfer 

function 

3 

- 1 

t 

o 

o 

1 — 1 

ro 

27 . 8 

*  From  "end  of  input  data  for  job  number  0 . . " , to  time 
domain  response.lt  includes  the  time  to  print  out  a 
message  for  each  transfer  function  of  the  block  diagram. 


• 
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Chapter  VII 

PROVISIONS  FOR  EXTENSION  AND  FUTURE  WORK 

Provisions  have  been  made  at  several  points  throughout 
the  program  for  extension  or  linkage  with  other  programs  so 
as  to  enhance  its  present  capabilities.  In  the  following 
paragraphs  major  extensions  are  described  in  more  detail. 

The  description  follows  the  order  in  which  such  extensions 
would  appear  in  the  detailed  flow  diagram  given  on  pages 
B-3  to  B-15  of  Appendix  B. 

a.  The  transfer  function  and  configuration  data  could 

be  utilized  to  generate  Bode,  Nyquist,  Nichols  plots. 
All  necessary  information  for  this  purpose  is  stored 
on  a  disk  FILE.  For  FILE  definition  and  use  refer 
to  Tables  D-l  and  D-2  of  Appendix  D.  The  linkage 
with  such  an  extension  is  provided  by  a  utility 
program  option  value  entered  by  the  user  (p.B-5). 

b.  Process  transfer  function  parameters  could  be  found 
by  fitting  a  first  or  second  order  transfer  function 
model  to  the  reaction  curve  of  the  real  process  to 

a  step  change  of  an  input  stream.  Bakke's  modified 
step  type  of  analysis  (2)  would  provide  the  same 
information.  Process  transfer  function  parameters 
could  be  supplied  to  this  program  by  another  program 
or  subroutine  using  the  linkage  provided  (p.B-6) . 


S3( 
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This  would  effectively  combine  process  identification 
with  process  simulation  and/or  control  synthesis. 

c.  The  "library  of  functions  to  generate  controller 
constants"  may  be  easily  increased  to  supply  constants 
for  other  types  of  process  transfer  functions  (p.B-6) . 
Subroutines  similar  to  the  one  implemented,  i.e., 

GTCC1,  could  be  added.  They  would  use  the  "LOCAL" 
function  of  the  IBM  TSX  operating  System  (15)  so 

that  no  additional  core  storage  would  be  required. 

If  the  program  is  to  be  extensively  used  for  simu¬ 
lation  of  an  experimental  set-up  as,  for  example, 
the  double  effect  evaporator,  the  "library"  may  be 
extended  to  accept  controller  constants  estimated 
by  on-line,  trial  and  error,  experimental  procedures. 

d.  The  system  of  first  order  linear  differential 
equations,  i.e.,  the  matrix  state  equation,  could 
be  integrated  directly  by  using  a  Runga-Kutta  type 
of  algorithm  to  generate  the  time  domain  response 

(p.B-10).  This  would  provide  a  convenient  check. 

.  .  .  (  *  ) 

The  time  required  for  computing  large  systems  by  this 

method,  however,  has  been  shown  by  Davison  to  be 

excessively  large  in  comparison  with  others  (7) . 

e.  New  sets  of  subroutines  to  provide  the  eigenvalues 
of  coefficient  matrix  A  could  be  easily  implemented. 

The  "LOCAL"  function  previously  described  would 
again  be  recommended  to  economize  on  the  core  storage 
requirements.  Unused  values  of  option  number  4 


(*)  Systems  of  order  10  or  larger 


. 
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(i.e.,  NOP(4)  =.  3,4,  etc.)  would  specify  this  new 
set  of  subroutines  (p.B-10). 

f.  If  the  eigenvalue  finding  subroutine (s )  provide  a 
non  singular  matrix  of  the  eigenvectors  and  this  is 
only  possible  if  the  eigenvalues  are  real  and  distinct, 
then  the  following  similarity  transformation  may 

be  used  to  find  the  fundamental  matrix 

,  A  A*/!-  1 

<£_  =  e—  =  Me— M 

where  A  is  the  diagonal  matrix  of  the  eigenvalues 
and  M  is  the  matrix  of  the  eigenvectors  (p.B-11) . 

g.  Another  extension  readily  implemented  is  the  evalu¬ 
ation  of  control  criteria  such  as  IAE  (integral  of 
absolute  error) ,  ISE  (integral  of  squared  error) , 

ITAE  (integral  of  absolute  error  multiplied  by  time) 
or  other  control  criteria  (1/4  decay  ratio,  rise 
time,  settling  time  etc.)  from  the  time  domain 
response.  This  would  allow  the  adjustment  of 
controller  constants  to  meet  the  specified  control 
criteria  in  an  off-line  type  of  optimization. 

Presently  the  response  is  observed  and  controller 
constants  are  changed  by  the  operator  (see  closed- 
loop  tuning,  example  6-3) .  The  linkage  with  a 
program  calculating  integral  and  other  control 
criteria  may  be  obtained,  for  example,  by  setting 
option  number  8  to  4,5,  etc.  This  method  would  imply 
storing  the  time  domain  data  for  variables  of  interest 
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into  a  permanent  FILE  to  be  used  later  by  a  program 
or  subroutine  that  would  calculate  the  control 
criteria*  An  off-line  program  to  evaluate  control 
criteria  based  on  a  FILE  of  time  domain  data  is 
already  available  in  the  Data  Acquisition,  Control 
and  Simulation  Center  in  the  Department  of  Chemical 
and  Petroleum  Engineering.  Alternatively,  the 
coding  to  implement  evaluation  of  the  criteria  could 
be  integrated  with  the  section  of  programming  that 
calculates  the  time  domain  solution, 
h.  The  program  was  written  to  interface  with  two  types 
of  optimization  programs.  In  the  first  case  the 
state  difference  equation  model  generated  by  this 
program  would  be  transmitted  to  an  optimization 
program,  for  example,  one  using  linear  programming, 
which  would  return  the  optimum  forcing  function 
vector  U ( t ) .  The  open  loop  model  response  to  the 
specified  U(t)  could  then  be  generated  using  this 
program.  In  the  second  method  the  results  from  one 
simulation  run  could  be  transmitted  to  an  optimiza¬ 
tion  program,  for  example,  one  using  direct  search 
techniques,  which  would  generate  new  values  of  the 
control  parameters. 
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7.1  Suggestion  for  Improvements  Based 
Upon  User's  Experience 

The  experience  of  the  author  and  other  persons  using 
the  program  has  suggested  the  following  modifications  and 
changes : 

a.  Start  the  printed  output  of  the  block  diagram 
information  and  the  time  domain  response  on  a  new 
page . 

b.  For  the  time  domain  response,  have  the  user  supply 
any  two  of  the  following  three  values  instead  of 
DELT  and  NPTS  as  at  present: 

b.l  DELT  =  time  interval 
b.2  NPTS  =  number  of  points 
b.3  TMAX  =  final  time  value 

c.  Build  a  "permanent"  FILE  of  time  domain  data  of 
variables  of  interest  so  that  the  data  could  be  used 
by  other  programs  at  some  later  time. 

d.  Make  the  input  of  coefficients  on  the  block  diagram 
configuration  cards  optional.  The  program  would 
then  assume  that  all  coefficients  were  unity  unless 
otherwise  specified.  For  example,  with  the  present 
FFIOR  input  subroutine,  the  user  could  first  enter 
the  input  identification  number  and  coefficient  for 
inputs  with  non  unity  coefficients  followed  by  a 
list  of  the  other  input  identification  numbers. 

e.  Modify  the  program  to  select  a  suitable  value  of 
the  time  subinterval  used  in  the  evaluation  of  the 
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state  difference  equation  based  upon  the  magnitude 
of  the  eigenvalues . 

f.  Modify  the  program  so  that  at  the  completion  of  a 
given  problem  a  message  is  written  asking  the  user 
which,  if  any,  changes  he  wishes  to  make.  This  would 
be  equivalent  to  the  options  presently  implemented 
using  coded  values  of  NOP (9)  (refer  to  Appendix  A, 
Table  A- 2) . 

g.  Rearrange  the  grouping  of  the  program  options 

CRIT  TO  DELT  DELTH 

and 

NPTS 


as  : 


CRIT  TO 


and 


DELTH  DELT  NPTS  TMAX 

Then  all  parameters  effectively  used  for  the  time 
domain  solution  would  be  grouped  in  one  card  (refer 
to  User's  Manual,  Appendix  A), 

h.  Modify  the  power  series  subroutine  to  use  nested 

multiplications  to  calculate  the  powers  of  a  matrix. 
Execution  time  and  round-off  errors  resulting  from 
direct  multiplication  of  matrices  with  large 
elements  are  thus  reduced.  For  example,  the  third 
element  of  the  power  series  would  be  calculated  as 

2  t^ 

(( (At/1) At/2) At/3)  instead  of:  (A  ) (A) 


!  a^£.j9c::^£iq  I  t.  =>,]•? 
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7 . 2  Recommendations 

It  has  been  mentioned  that  changing  the  scaling  of  the 
program  from  its  present  dimensions  would  not  present  any 
special  difficulties.  Due  to  the  small  size  of  variable 
core,  however,  it  would  soon  require  further  subdivisions 
or  "links."  Furthermore  example  6-7  has  pointed  out  the 
erroneous  results  obtained  as  a  consequence  of  round-off 
errors  and  poor  accuracy.  Consequently,  small  time 
intervals  had  to  be  used  with  the  obvious  inconvenience 
of  considerably  increasing  the  number  of  iterations,  hence 
the  computational  time.  Extended  precision  is  recommended 
for  those  parts  of  the  program  dealing  with  the  Cayley- 
Hamilton  technique  and  power  series  methods  to  find  the 
fundamental  matrix.  As  the  IBM  1800  FORTRAN  IV  Language 
(14)  does  not  permit  the  mixing  of  single  and  extended 
precision  within  the  same  program,  a  subroutine  has  been 
provided  by  the  Data  Acquisition  and  Control  System  Centre 
to  convert  from  single  to  extended  precision  and  vice  versa. 
The  computation  in  extended  precision  could  thus  be 
restricted  to  those  parts,  as  the  one  above  recommended, 
that  are  mostly  affected  by  round-off  errors. 

Experience  to  date  has  shown  that  the  "hands-on" , 
'bonversational"  mode  of  operation  of  the  present  program  is 
extremely  desirable,  especially  for  the  control  student. 
However  there  is  a  need  to  get  very  accurate  solutions  to 
much  larger  problems  than  the  ones  envisioned  when  this 
program  was  designed.  For  these  larger  problems  it  would 


' 

r  5.  i  i  '’jrjpoA  ef  • 


95 


undoubtedly  be  desirable  to  rewrite  this  program  for  a 
larger  computer  such  as  the  IBM  360/67  available  at  the 
University  of  Alberta  Computing  Centre.  The  larger  core 
memory,  more  powerful  FORTRAN  language,  more  extensive 
subroutine  library,  faster  execution  time,  longer  word 
length,  etc.,  would  all  combine  to  produce  a  simpler,  more 
accurate  and  fast  program  for  the  handling  of  off-line 
batch  runs.  Future  extensions  to  the  time  sharing  services 
of  the  360/67  might  permit  interactive  use  via  a  typewriter 
terminal  in  a  manner  analogous  to  the  original  IBM  1800 
program . 

A  further  improvement  would  be  to  restructure  the 
program  so  that  those  parts  dealing  with  matrix  manipula¬ 
tion  were  programmed  in  MATLAN  or  Matrix  Language  (12) . 

This  would  considerably  reduce  the  length  of  the  program 
and  likely  speed  up  the  overall  solution  of  a  problem. 
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CONCLUSIONS 

A  computer  program  has  been  presented  whereby 
continuous  linear  control  systems  represented  either  in 
block  diagram,  transfer  function  form  or,  more  directly, 
by  a  set  of  first  order  differential  equations  in  matrix 
form  are  analyzed  and  their  time  domain  response  to  a  set 
of  external  forcing  functions  found. 

The  examples  investigated  in  Chapter  VI  and  the 
discussions  and  comments  included  at  several  points  through¬ 
out  this  work,  confirm  that  the  program  has  fulfilled  the 
original  design  specifications  outlined  in  the  introductory 
section,  that  is: 

It  is  simple  and  convenient  to  use  but  also  capable 
of  handling  realistic  control  problems. 

It  runs  in  a  time  sharing  mode  on  a  small  real-time 
computer . 

It  generates  the  equivalent  "state  variable"  matrix 
representation  for  a  problem  defined  in  block  diagram 
notation  with  transfer  functions  given  in  Laplace 
transform  notation. 

It  generates  the  time  domain  solution  from  the  matrix 
difference  equations. 

It  generates  the  time  domain  solution  for  all  elements 
of  the  state  variable  vector  X  or  the  "output" 
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variable  vector  Y  either  as  listings,  graphs  produced 
on  a  digital  plotter  or  displays  on  a  storage 
oscilloscope . 

It  has  provision  for  linkage  to  programs  for  closed- 
loop  optimization  of  controller  constants. 

It  has  provision  for  linkage  to  alternative  subprograms 
for  all  internal  steps  such  as  determining  the 
eigenvalues,  etc. 

It  handles  control  systems  whose  characteristic 
equations  have  real,  complex  and/or  repeated  roots. 

It  produces  complete  problem  documentation  of  both 
the  control  results  and  the  important  steps  of  the 
mathematical  solution. 

It  accepts  forcing  functions  defined  mathematically 
or  simply  as  a  list  of  function  values. 

It  does  not  usually  require  any  block  diagram  manipu¬ 
lation  or  standardization  by  the  user  prior  to  using 
the  program. 

It  handles  "standard"  control  problems  by  special 
options . 

It  handles  pure  time  delays,  time  delays  associated 
with  transfer  functions  and  isolated  derivative  actions. 
Up  to  two  sampler  plus  zero-order  elements  can  be 
handled  [equation  (4-1)]. 

It  has  user's  intervention  capabilities  in  a 
"conversational"  mode,  analogous  to  other  simulation 
programs,  which  permit  the  user  to  alter  program 
specifications  and  parameters  and  rerun  the  problem. 
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The  six  examples  presented  and  the  use  by  other 
students  confirm  the  usefulness  of  the  program  to  solve 
realistic  control  problems. 

The  control  oriented  block  diagram,  transfer  function 
input  feature,  simplified  to  the  extent  of  requiring  no 
block  diagram  manipulation  and  minimum  input  data,  should 
encourage  process  control  students  to  use  the  program  to 
carry  out  simulation  studies  and  to  gain  experience  with 
control  techniques. 


, 
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NOMENCLATURE 

A  general  transfer  function 
Gv  Transfer  function  of  a  value 

G  Transfer  function  of  a  measuring  element 

Kp  Controller  gain 

Integral  time  parameter  for  controller 
td  Derivative  time  parameter  for  controller 

t.  Time  delay 

t  Process  lag 

CONTROL  ALGORITHMS 
P  Proportional  controller 

PI  Proportional  +  integral  controller 

PID  Proportional  +  integral  +  derivative  controller 

CONTROL  CRITERIA 

3-C  Three  constraints  [reference  (20)] 

IAE  Integral  of  the  absolute  error 
ISE  Integral  of  the  square  error 

ITAE  Integral  of  the  time  multiplied  by  the  absolute  error. 

Note  that  the  following  methods  of  identifying  the 
elements  of  vectors,  are  equivalent: 

example:  y^(t)  =  y^  =  Y(3) 
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A . 1  General  Considerations 


The  program  is  designed  to  accept  input  in  block 
diagram,  transfer  function  (TF)  form  and  produce  the 
equivalent  state  equation  in  the  form: 


X  =  A*X  +  B*U 
Y  =  C*X  +  D* V 


(A-l) 


If  the  input  is  in  matrix  form  the  above  system  is  supplied 
by  the  user.  The  program  then  calculates  the  eigenvalues 
of  the  coefficient  matrix  A  finds  the  fundamental  matrix 
j>_(T)  by  typically  using  the  Cayley-Hamilton  technique  and 
produces  the  coefficient  matrix  H_(T)  of  the  state  difference 
equation 


X.  ,  ,  =  <f>  (T)  *X.  +  H  (T)  *U. 

—l+l  —  — l  —  —l 

(A- 2 ) 

Y.  =  C*X.  +  D*V. 

-1 - 1 - 1 


where  time  =  iT  and  H(T)  is  the  integral  between  zero  and  T 
of  £(t) *dt*B.  It  finally  calculates  the  time  domain  response 
by  iterating  equation  (A-2)  over  a  specified  number  of  time 
intervals . 

The  system  is  so  designed  as  to  keep  the  amount  of 
input  data  to  a  minimum.  Non  essential  data  are  initial¬ 
ized  by  the  program  to  "standard  values"  thus  simplifying 
the  specification  of  a  problem.  What  is  meant  by 
"standard  values"  and  how  other  than  standard  values  may  be 


entered  will  be  discussed  later  on. 
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The  program  was  designed  to  be  as  free  as  possible  of 
arbitrary  input  formats  and  rigid  sequences  that  the  user 
must  follow.  The  following  sections  describe  a  systematic 
approach  to  the  use  of  the  program  that  is  recommended  for 
the  beginner.  The  experienced  user  will  realize  that  there 
are  several  alternative  means  of  specifying  the  same 
problem  and  can  use  the  approach  best  suited  for  his 
problem.  The  fully  documented  examples  which  occur  at  the 
end  of  this  manual  illustrate  a  number  of  the  alternative 
methods  and  options. 

A. 1.1  Problems  Specified  by  a  Block 
Diagram  and  Transfer  Functions 

It  is  assumed  that  the  user  has  drawn  a  block  diagram 
that  adequately  defines  the  problem  he  wishes  to  solve. 
There  is  no  standard  format  that  the  user  must  follow  and 
he  can  specify  multivariable,  multiple  path  systems  if  he 
wishes . 

It  is  worthwhile  mentioning  that  a  block  diagram  can 
usually  be  entered  in  its  original  form,  thus  requiring  no 
user's  manipulation,  or  can  be  modified  into  an  equivalent, 
more  compact  one.  This  requires  user's  time  but  saves  on 
the  overall  dimensions  of  the  problem,  and  hence  computer 
time.  The  time  domain  results  should  be  identical.  A 
simple  block  diagram  manipulation  is  shown  in  Figure  A-l. 

The  user  should  number  every  block  in  his  diagram, 
including  any  summing  points,  etc.,  starting  with  one  and 
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proceeding  with  successive  integer  values.  The  starting 
point  and  order  of  the  numbering  is  not  important.  By- 
convention  each  element  in  a  block  diagram  can  have  only 
one  output  variable  which  is  assumed  to  be  identified  by 
Y(i)  and  the  program  sets  "i"  equal  to  the  block  from  which 
the  signal  originates,  i.e.,  the  output  from  block  three  is 
referred  to  as  output  variable  Y(3) . 

External  functions  such  as  setpoints,  loads,  disturb¬ 
ances,  etc.,  are  designated  as  elements  of  the  vector  u. 

The  user  should  number  each  such  function  u(101) ,  u(102) , 
u(103)...  Again  the  order  is  unimportant. 

The  user  should  note  that  the  existing  IBM  1800  version 
of  the  program  is  limited  by  DIMENSION  statements  to  the 
following:  Maximum  number  of  state  variables  in  X  is  10. 

Maximum  number  of  output  variables  in  Y  is  15 

Maximum  number  of  forcing  functions  in  u  is  10. 

After  completing  these  steps  the  user  is  ready  to 
prepare  the  "configuration"  cards  which  are  used  to  input 
the  block  diagram  information  to  the  program. 

However  before  specifying  hew  to  prepare  input  cards 
it  is  helpful  to  know  some  of  the  general  characteris tics 
of  the  free  format  input  routine  used  by  this  program. 

A. 1.2  Free  Format  Input  Subroutine 

Data  are  supplied  in  free  format  being  read  in  by  a 

(*) 

special  FFIOR  subroutine.  The  length  of  the  input  list 
read  by  this  subroutine  is  arbitrary  but  at  present  the 


(*)  see  page  F-l  of  Appendix  F. 
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maximum  number  of  integer,  real  and  alphameric  values  read 
in  by  a  single  call  statement  is  limited  to  a  maximum  of  50 
real  and  integer  values,  or  100  alphamerics . 

Data  may  be  entered  separated  either  by  a  comma  or  by 
one  or  more  blanks.  Alphamerics  should  always  be  entered 
between  single  asterisks.  The  end  of  an  input  list  is 
given  by  a  double  asterisk  preceded  and  followed  by  a  blank. 
Care  must  be  exercised  to  enter  real  values  with  their 
decimal  points  or  with  an  Ew.d.  format.  As  the  number  of 
real,  integer  and  alphameric  values  are  not  specified,  no 
error  message  is  caused  by  entering  a  real  value  without 
its  decimal  point.  The  subroutine,  however,  interprets 
that  value  as  an  integer  and  serious  errors  will  undoubtedly 
follow.  Similarly  the  FFIOR  subroutine  cannot  usually 
determine  whether  one  or  more  values  are  omitted  from  any 
particular  list  but  the  rest  of  the  program  will  not 
execute  properly  without  them. 

Integer  and  real  numbers  can  be  intermixed  on  the  same 
card  or  input  record.  One  of  the  first  operations  performed 
by  the  FFIOR  routine  is  to  sort  the  input  data  into  separate 
vectors  of  integer,  real  and  alphanumeric  data.  The  data 
in  the  input  list  of  the  calling  program  is  then  taken  from 
these  storage  vectors  in  the  order  they  were  stored.  There¬ 
fore  integer  and  real  numbers  can  be  intermixed  in  any 
fashion  as  long  as  the  relative  order  of  the  integers  to 
one  another  and  the  real  numbers  to  one  another  is  main¬ 
tained.  For  example  the  following  are  all  equivalent: 
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1,1.0 ,2 ,2 .0b3b3.0  ** 

1,2, 3,1. 0,2. 0,3.0  ** 

1 . 0b2 . 0blb2b3b3 . 0  ** 

but  3,2,l,1.0,2.0,3o0  **  would  reverse  the 

order  of  the  first  and  third  integer. 

If  real  and  integer  values  are  related  as  for  example 
output  variable  3  and  its  coefficient  1.0  then  they  must 
have  the  same  order  in  the  data  list,  for  example,  they  both 
must  be  the  2nd  integer  and  the  2nd  real  value.  If  the 
user  wishes  to  identify  his  output  by  means  of  a  title  he 
may  do  so  by  punching  it  on  one  or  more  cards .  Each  card 
must  have  a  single  asterisk  ahead  and  after  the  alphameric 
field.  Blank  cards  may  be  used  to  space  printed  lines. 

A. 2  First  Data  Card 

Two  types  of  input  are  possible  according  to  the  value 
of  the  input  matrix  flag  (MFLAG) . 

MFLAG  =  0  implies  a  TF  and  configuration  data  input 
MFLAG  =  1  implies  a  matrix  input. 

Matrix  input  is  described  in  a  later  section  of  this  manual. 
For  the  case  of  block  diagram/transfer  function  input  the 
first  card  should  be: 

0  *  * 

A. 3  Transfer  Function  Specification 
The  block  diagram  configuration  of  a  typical  problem 
consists  of  several  blocks  relating  one  or  more  inputs  to 
a  single  output  through  an  expression  or,  transfer  function, 


'  o  2  .1  i  f- 
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identified  by  the  same  integer  constant  as  the  block. 

In  general  a  transfer  function  is  the  ratio  of  two 
polynomials  in  "s",  the  degree  of  the  polynomial  in  the 
numerator  being  less  or  equal  to  that  in  the  denominator. 
However,  a  transfer  function  can  also  be  a  constant,  a  pure 
time  delay,  etc... 

A. 3.1  Polynomial  Terms 

A  general  form  for  such  type  of  transfer  function  is 

2  3  2 

(a1s+a2) (a3s  +a4s+a5)(a6s  4a7s 

G  ( s )  =  ^  3  2  - -  ( A-  3 ) 

(b1s+b2)  (b^s^+b^s+b^)  (b^s  4-b^s  +bgS+b^)  (...).  . 

Transfer  function  ( A—  3 )  is  identified  by  the  integer 
number  assigned  to  the  particular  element  of  the  block 
diagram  and  each  term  of  the  numerator  and  denominator  is 
identified  by  two  factors: 

1)  an  integer  giving  the  degree  of  the  term  (  a  pre- 
ceeding  negative  sign  is  used  to  indicate  terms 
in  the  denominator) . 

2)  a  series  of  coefficients  in  number  equal  to  the 
degree  plus  one. 

A. 3. 2  Time  Delay  Terms 
-Tds 

A  pure  time  delay  e  has : 

1)  degree  =  0  (by  definition) 

2)  coefficients  l.,T 

d 


i  » 


A- 7 


A, 3 , 3  Constant  Terms 

A  constant  k  is  considered  as  a  special  case  of  the 
zero  order"  transfer  function  previously  described: 


0 


ke 


ke 


k 


therefore 

1)  degree=0 

2)  coefficients  k,0.0  (in  this  order) 

It  should  be  noted  that  a  constant  term  cannot  be  entered 
as  a  special  case  of  a  polynomial  by  defining  all  powers 
of  "s"  to  be  zero.  In  most  cases,  however,  a  constant 
gain  factor  could  be  entered  as  a  coefficient  associated 
with  the  inputs  specified  in  the  configuration  card  for 
that  block  (see  example  A-5-1) »  When  a  zero  order  term  is 
present,  it  must  be  in  the  numerator  of  the  transfer 
function  and  must  be  the  first  one  in  the  list  of  numerator 
terms.  The  order  in  which  the  other  numerator  and 
denominator  terms  are  given  is  irrelevant. 

A. 3. 4  Transfer  Function  Input 

With  the  above  specifications,  the  input  for  the 
transfer  function 


G  ( ID) 


(A-4) 


(* *) 


takes  the  general  form: 


—  Ts 

(*)  A  sampler  plus  zero-order-hold  element,  (1-e  " )/s,can 

be  specified  using  equation  (A-4). 


' 

' 
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ID ,  0  ^  k  ,  t  ^  ,  + 1^2  /  +  .  «  .  .  , . 

-1  h  K  -9  K  K  h  -9  ** 

-1-  f  2  f  ”J^  ^  <— *  ^  l«9  ^  ^  is9  ^  y  ^  ^ 

where : 

ID  is  the  block,  transfer  function,  number  assigned  by 
the  user. 

0,k,T^  represent  a  time  delay  term  as  previously 
discussed  and 

each  term  is  entered  with  a  signed  integer  which  gives 
the  degree  of  that  term  (+  for  numerator  terms;  -  for 
denominator  terms)  followed  by  a  list  of  coefficients 
(all  powers  must  be  present)  ordered  from  low  to  high 
powers . 

Note  that  in  the  above  general  input  expressions: 

ID,  0,  +1,  +  2,  ...  -1,  -2,  -3,  ....  must  be  entered  as 

integer  values , 

k,  x  , ,  aw  a_  ,  ...  bn  ,  b_  ...  must  be  entered  as  real  values 
'  d  1  2  1  2 

with  decimal  point  or  in  E  format. 

Example  A-3-4-1 

3e  (s  +  1) 

G  (5)  =  - - 5““ . — -  -- 

5s  +  27s  +  9 

INPUT  LIST:  5,  0,  3.,  +  5.,  +1,  1.0,  1.0,  -2,  9.,  27.,  5.,** 
Example  A-3-4-2 

(s  +  1) 

( s  +  6 )  ( s  2  +  36s+  4 ) 


G  ( 4 ) 


I 


- 
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INPUT  LIST:  4,  +1,  1.,  1.,  -1,  6.,  1.,  -2,  4.,  36.,  1.,  ** 

Although  the  program  processes  almost  any  type  of 
block  diagram,  hence  transfer  functions,  the  following 
limitations  apply: 

(i)  The  program  handles  only  one  isolated  (pure)  time 
delay . 

(ii)  Up  to  two  time  delays  are  presently  allowed  if  each 
of  them  is  associated  with  a  transfer  function  for 
which  the  degree  of  the  numerator  is  less  than  the 
degree  of  the  denominator. 

(iii)  When  an  isolated  derivative  action  is  present  (s  +  a) 
no  time  delays  are  allowed  except  an  isolated  one. 
Note  that  the  derivative  term  must  be  of  1st  order 
and  so  located  in  the  block  diagram  as  not  to  cause 
any  derivative  of  external  forcing  functions  such  as 
set  points,  load  disturbances. 

(iv)  If  the  degree  of  the  numerator  and  denominator  of 
the  block  diagram  as  a  whole  (i.e.,  the  sum  of  the 
highest  powers  of  the  numerator  and  denominator  terms 
of  all  transfer  functions  constituting  the  diagram) 
are  equal,  then  no  time  delay  is  allowed.  Note  that 
this  rule  also  applies  to  single  transfer  functions. 
The  order  in  which  transfer  functions  and  their  configura¬ 
tion  data  (see  section  A. 5)  are  entered  is  irrelevant. 

The  only  exception  occurs  when  the  system  is  requested  to 
provide  controller  constants  stored  in  a  "library".  In 


t 
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such  case  the  process  transfer  function  must  precede  the 
controller  transfer  function  in  the  card  deck  since  the 
process  constants  are  used  in  the  evaluation  of  the 
controller  constants  (see  section  A. 4 *6). 


A. 4  Special  Transfer  Function  Input 
Special  coding  may  be  used  to  speed  up  the  input  of 
frequently  occurring  types  of  transfer  functions.  These 
special  cases  are  best  illustrated  by  examples. 


A. 4.1  First  Order  Transfer  Function  with  Time  Delay 


G(6)  = 


ke 


"Tds 


TjS  +  1 


a.  standard  input:  6 , 0  ,k  ,  , -1 , 1 . , , ** 

b.  special  input:  206,k,T^,T  ,  ** 

where  the  ID  number  is  formed  by  adding  200  to  the 
transfer  function  or  block  number  6. 

A. 4.2  Second  Order  Transfer  Function  with  Time  Delay 

-x  ,s 
ke  ^ 

G  ( 3 )  =  — - 

(t.j^s+1)  (t2s+1) 

a.  standard  input:  3 , 0 ,k , x^ , -1 , 1 . 0  , x^  , -1 , 1 . 0  , x ^ , ** 

b.  special  input:  30 3 , k , x^ , t ^ , x ^ , * * 

ID  is  300  +  transfer  function  number. 


' 
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A. 4. 3  Proportional  Controller  Transfer  Function 
G (2)  =  Kc 

a.  standard  input:  2 , 0 ,Kc , 0 . 0 , ** 

b.  special  input  :  402, Kc;** 

where  the  ID  number  is  400+transfer  function  number. 


assuming  =  k 
u  (101)  + 


b) 


Configuration  Data 

Transfer  Function  Data 

101,3,1.0,  ** 

l,as  required,  ** 

a) 

103,2,1.0,  ** 

2, 0,1. 0,0.0,  ** 

102,1,-1.0,101,1. ,** 

3 , 0 ,k , 0 . 0 ,  ** 

b) 

101 , 1 ,-k, 101 ,k ,  ** 

l,as  required,  ** 

FIGURE  A-l  Simple  Block  Diagram  Manipulation  and  Resulting 
Simplification  of  Problem  Input 
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A. 4. 4  Proportional  +  Integral  Controller  Transfer  Function 

G(8)  =  Kc(l  +  1/ij.s)  or 

Kctts  +  Kc 

G  (  8 )  =  - 

T-j-S  +  0 

a.  standard  input  8,  +1,  Kc,  KcTj,  -1,  0.,  t  ** 

b.  special  input  508,  Kc,  x  ** 

ID  is  500  +  transfer  function  number. 


A. 4. 5  Proportional+Integral+Derivative  Controller 
Transfer  Function 


G  ( 1)  =  Kc 


( 1+  ts+ - ) 

D  T-j-S 


Kc  +  Kc  T^s  +  Kc  t  xDs' 


1  TITD  2  1 

(1+X^/^S  +  - 77—:  SZ  +  Xj-S  +  — 


D/  y 


OtTjS' 


Y 


a 


Selecting  a  =  y  =  10 

a.  standard  input  1,  +2,  Kc,  Kc  x  ,  Kc  x^x^,  -2 , 

0.1,  xI,  0.1  x^  ** 

b.  special  input  601,  Kc ,  x^,  x^  ** 

Note  that  x^,  x^  cannot  be  set  to  zero.  This  would  make 
the  coefficient  of  the  largest  term  in  the  denominator 
zero  which  is  not  valid. 

A. 4.6  System  Supplied  Controller  Constants 

Once  the  user  has  defined  his  process  system  he  must 
usually  choose  a  controller  and  the  controller  parameters. 


loiino  >  stiJ  Jons  lolloiinoo  &  9^oor<o  y  L&u  .u 
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For  the  general  problem  this  could  be  very  difficult. 
However  if  the  process  can  be  approximated  by  the 
following  transfer  function: 

ke"TdS 

GP(S)  “  71TVT  (A-5> 

and  if  the  user  wants  to  employ  a  single  variable  unity 
feedback  control  system  then  the  program  will  assist  him 
with  the  choice  of  control  constants.  Specifically,  the 
user  has  the  option  of  either  entering  the  controller 
constants  in  one  of  the  ways  previously  described  or  having 
the  system  determine  the  optimum  set  of  a  proportional, 
proportional+integral ,  or  proportional+integral+derivative 
controller  constants  based  on  the  following  criteria: 


criterion 

number 

( *) 

criterion 

1 

Zeigler-Nichols 

2 

3-C 

3 

IAE 

4 

ISE 

5 

ITAE 

6 

Cohen-Coon 

7 

Quickest  response  +  20%  overshoot 

8 

Quickest  response  without  overshoot 

( *)  . 

These  control  criteria  apply  to  process  transfer 
functions  of  the  type  (A-5)  for  the  following  range  of 
process  parameters: 

Criteria  1  through  6 

0  c<  t^/t  <:  1.0  [reference  (20)]. 

Criteria  7  and  8 

0.1  <:  t^/t  <  1.0  [reference  (5)]. 


.  h  lO  -  V.'  :•  :  V  t  -  -5f  '■  I.L  O  ;  . 
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A. 5  Configuration  Data  Input 
Each  transfer  function  is  coupled  with  its  configura¬ 
tion  data  that  define  number,  type  and  value  of  the  input (s) 
to  the  transfer  function,  the  output  always  being  a  single 
variable  y  (output  variable)  identified  by  the  same  number 
as  the  block  or  transfer  function.  A  general  form  for  any 
element  in  a  block  diagram  is  shown  below  where  G(n)  is 
the  transfer  function: 


alyl 

. . . 

a2Y2 

> 

biui 

b2U2 

... .  ^ 

G  (n) 


n 


and  the  corresponding  configuration  data  card  is : 

100  +  n,  1,  a^,  2,  a^,  3,  a^ ,  ...  101,  b^,  102,  b^  ** 

where 

100  +  n  is  the  code  of  a  configuration  data  input  for 
block  "n". 

1,  2,  3,  identify  the  three  output  variables  y^,  y^, 
y ^  as  inputs  to  block  "n" . 

a^,  a2 ,  a^  are  the  coefficients  of  y^,  y 2,  y^  respectively. 

(These  must  be  real  constants) . 
identify  external  forcing  functions  u^,  u2 
as  inputs  to  block  "n" . 


101,  102 
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b1,  b2  are  the  coefficients  of  u^u  .  (These  must  be 

real  constants) . 

As  mentioned  earlier  because  of  the  way  the  FFINP  input 
subroutine  handles  data  the  same  configuration  data  may  be 
entered  as 

100  +  n,  1,  2,  3 ,  10 1 ,  102,  ...  a^,  a2  ,  a^  ,  b^,  b2,  **  or 

100  +  n,  1,  2,  3,  a^,  a2 ,  a^  ,  101,  102,  b^,  b2,  ** 

etc . 

Note  that  in  each  case  the  order  of  the  integers  and  the 
orders  of  the  real  variables,  is  the  same.  In  many 
problems  the  coefficients  "a^"  and  "b^"  are  equal  to  ±  1.0. 

One  configuration  card  is  required  for  each  of  the  "n" 

elements  in  the  block  diagram.  Once  the  user  has  defined 
the  configuration  he  can  then  specify  the  transfer  function 
associated  with  each  block. 

Example  A. 5.1 


u  (101) 


k  (s+a) 

2 

y(3). 

s  +  b 

configuration  card:  103,101,1.0,** 

transfer  function  input  card:  3,0,k,0.0,  1 , a , 1 . 0 . -2 , b  ,  0 . 0  , 
1.0,**  or 

configuration  card:  103, 101, k,** 

transfer  function  input  card:  3 ,  +  l , a , 1 . 0 , -2 ,b  ,0 . 0 , 1 . 0  ,  ** 


' 
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A. 6  External  Forcing  Function  or  Disturbances 
If  a  time  domain  response  of  the  system  subject  to 
external  forcing  functions  is  desired,  the  type  and  magni¬ 
tude  of  the  forcing  functions  must  be  supplied.  If  no  such 
information  is  given  the  program  stops  after  having  calcu¬ 
lated  the  coefficient  matrices  of  the  state  equation  (A-l) . 

External  forcing  functions  (set  points,  loads,  etc.) 
are  characterized  by  the  small  letter  "u"  indexed 
sequentially  from  1  up. 

Again  the  disturbance  u^  can  be  any  one  of  them.  A 
typical  external  forcing  function  entry  shows  as : 

999,  100  +  ID,  disturbance  code  number,  1st  disturbance 

parameter,  2nd  disturbance  parameter**. 

where 

999  is  the  code  used  to  input  disturbances.  Only  one 
disturbance  may  be  entered  for  each  999  card. 

100  +  ID  is  the  disturbance  number  (ID  is  the  index  of  the 
actual  disturbance). 

Disturbance  code  number:  specifies  the  type  of  disturbance 
i.e.,  step,  ramp,  etc.,  ...  Disturbance  code  table  is 
given  as  Table  A-l. 

Two  real  value  parameters  define  completely  the  magnitude 
of  the  disturbance  (see  Table  A-l) . 

Ex.  999,  102,  1,  10.0,  0.00  ** 

means  a  step  change  of  magnitude  10  in  external  forcing 

2* 


function  u 


sc' 

’ 
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TABLE  A- 1 


Disturbance  Code 


Type 

Code 

Number 

First  Disturbance 
Parameter 

Second  Disturbance 
Parameter 

step 

1 

magnitude 

— 

ramp 

2 

slope 

— 

sine  wave 

3 

amplitude 

radiant  frequency 

pulse 

4 

magnitude 

duration 

5  —  9 
vacant 

file  of 
function 
data  sup¬ 
plied  by 
user  (* ) 

j 

10 

i 

1 

— 

i 

(*)  to  be  implemented 
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The  present  program  can  only  handle  step  disturbances  that 
.  ; 

are  specified  around  non-zero  initial  conditions.  Other 
steady  state  variables  may  be  entered  as  step  disturbances 
of  magnitude  equal  to  the  steady  state  value. 

For  the  case  of  "matrix  input"  (refer  to  section  A. 7) 
it  would  still  be  possible  to  deal  with  disturbances 
operating  around  non-zero  steady  state  values  by: 

-  assigning  two  variables  to  each  disturbance,  the  first 
to  be  a  deviation  variable  or  operating  around  zero 
initial  conditions  and  the  second  to  represent  the 
steady  state  value. 

-  modifying  the  matrix  B  and  vector  U  in  equation  (A-l) 
as  : 

[bib  3 

* 

where  U  contains  the  steady  state  values  for  variables  as 
described . 


A. 7  Problem  Specified  by  Matrix  Equations 
The  user  has  the  option  of  specifying  the  problem  in 
either : 

1)  block  diagram/transfer  function  notation 

2)  matrix  equations 

If  he  has  selected  the  first  option,  he  can  skip  to  section 
A. 8.  This  section  describes  the  input  data  required  for  the 
second  option. 


. 
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A. 7.1  First  Card  for  Matrix  Input  Option 
The  first  input  specification  card  should  be: 

1  ** 

in  order  to  identify  the  following  cards  as  matrix  input. 


A. 7. 2  System  Equation  Matrices 
The  user  must  identify  his  problem  with  one  of  the 
following 


X  =  AX  +  BU 
Y  =  CX  +  DV 


a) 


X  =  AX  +  BU 
Y  =  CX 


b) 


X  =  AX  +  BU 

for  case  b)  correct  program  control  entry  (see  section 
A. 10.1)  option  7  to: 

0  0  17  1** 

for  use  c)  correct  same  option  to: 

0  0  1  7  0  ** 


If  no  time  delay  in  present  the  forcing  vectors  U  and  V 
are  assumed  to  be  identical.  They  contain  all  forcing 
functions  whose  type  and  magnitude  have  been  previously 
entered  in  the  format  described  in  section  A. 6. 

If  the  logical  unit  numbers  for  I/O  device  are  those 
of  a  1816  typewriter  the  user  is  assisted  from  now  on  by 


proper  messages. 


, 
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Otherwise  he  must  supply: 


1) 


N,  M,  NF  ** 


where 


N  =  dimension  of  vector  X 


M  =  dimension  of  vector  Y 


NF  =  dimension  of  vector  U  =  V  if  no  time  delay 


is  present.  It  can  be  omitted  otherwise 


2) 


NTD  ** 


NTD  =  number  of  time  delays 


If  NTD  >  0  proceed  otherwise  jump  to  7) 


3) 


MV  ** 


This  vector  contains  the  number  of  disturbances  and 
as  many  pairs  of  numbers  of  delayed  disturbances  and 
delayed  state  variables  as  there  are  time  delays,  length 
therefore  is  N1  =  2*NTD+1. 


4) 


NV,  UD  ** 


Vector  NV  contains  the  variable  number  for  variables 
such  as  u,  uD ,  XD  entered  in  MV  vector.  UD  contains  values 
of  time  delays  associated  with  variables  contained  in  NV 
vector.  Note  that  if  a  variable,  for  example  u^ ,  is  not 
delayed  its  corresponding  entry  in  UD  is  0.0  length  of  NV 
and  UD  vectors  is  N2 .  For  cases  2)  and  3)  jump  to  7) . 

5)  MV1  ** 

This  vector  is  analogous  to  MV  with  reference  to 
forcing  vector  V  instead  of  U,  length  is  N3  =  2*NTD+1. 

6)  NVl ,  UDl  ** 

These  two  vectors  are  analogous  to  NV  and  UD.  They 


- 
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refer  to  above  defined  vector  MVl ;  length  is  N4. 

7)  A  ** 

Enter  matrix  A  columnwise  (N*N  elements) .  Note  that 
up  to  50  elements  may  be  entered  in  a  single  data  field  on 
as  many  cards  as  necessary.  However  any  number  of  elements 
(less  than  50)  may  be  entered  at  the  time  followed  by  ** 
as  long  as  the  columnwise  sequence  is  not  discontinued. 

The  same  considerations  apply  to  matrices  B,  C,  D. 

8)  Enter  matrix  B  columnwise. 

Elements  are  N*NF  if  NTD  =  0 

N*N2  if  NTD  >  0 
For  use  c)  stop  here 

9)  Enter  matrix  C  columnwise 

Elements  are  M*N 

For  case  b)  stop  here 

10)  Give  matrix  D  columnwise 

Elements  are  M*NF  if  NTD  =  0 

M*N4  if  NTD  >  0 

A.  8  Last  Entry 

It  is  either  999  0  **  (Continue) 

999  1  **  (Stop) 

The  second  integer  gives  the  value  of  a  non  execution  flag. 
In  the  first  case  the  program  is  continued  in  the  second 
stopped.  Note  that  if  the  card  previous  to  this  one 
specified  the  logical  unit  numbers  for  input/output  to  be 
those  of  the  1816  typewriter  terminal  then  this  entry  must 
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be  made  from  the  keyboard. 

A.  9  Input  Card  Deck 

In  order  to  start  the  program  it  is  necessary  to 

initiate  a  job  by  placing  the  following  control  cards 

valid  only  for  the  IBM  1800  TSX  system  and  data  cards  in 

the  input  hopper  of  the  card  reader: 

4  10  15  20  40 

//  JOB  XXX  NAME 

4  8  16 

//  XEQ  LAST1  FX 

INPUT  DATA  CARDS 

0,**  block  diagram  input  specification 
100+n....**  configuration  cards 
n....**  transfer  function  card 
999....**  forcing  function  specification  card 
0,0,....**  special  program  parameters  (see  page  A-37) 
999,0,  **  end  of  input  data  and  execution 
//  JOB 

//  END  OF  ALL  JOBS 
BLANK  CARD 

Note  that  as  an  extreme  case  the  input  data  could  be  given 
by  a  single  card  specifying  the  logical  unit  number  for 
the  1816  terminal.  The  user  would  have  to  enter  all  the 
remaining  data  via  keyboard. 


. 
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For  example , consider  the  following  system  defined  in  matrix 
form: 


x 

X 


5  6 

4  1 


*1 

6  2 

xi 

y2 

= 

1  3 

X2 

+ 

1 

u> 

1 _ 

0  4 

_ _ 

0 

0 

1 


6  1 

U1 

2  3 

U^ 

2D 

1  2 

x.  _ 

1  ID 

with  reference  to  entries  1)  to  10)  described  in  section 
A.7.2,the  user  should  enter: 

1)  2,3,2 ,** 

2)  1,** 

3)  2,1,1,** 

4)  1,2, 2, 1,0. 0,0.0, 0.3, 0.3,**  where  0.3  is  the  time  delay 

associated  with  u2d'x]_d 

5)  1,1,1,** 

6)  1,2, 1,0. 0,0. 3, 0.3,** 

7)  1.0, 3. 0,2. 0,4.0,** 

8)  0.0, 2. 0,4. 0,0. 0,5. 0,4. 0,6. 0,1.0,** 

9)  6. 0,1. 0,0. 0,2. 0,3. 0,4.0,** 

10)  0.0, 0.0, 1.0, 6. 0,2. 0,1. 0,1. 0,3. 0,2.0,** 


' 
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A.  10  Program  Control  Entries 

The  user's  problem  is  completely  specified  by  the: 

1)  configuration  and  transfer  function  data  (or  the 
equivalent  matrix  input  data) . 

2)  external  forcing  function  specifications. 

The  program  is  set  up  so  that  it  will  accept  this  input 
and  produce  a  "standard"  solution  which  includes  a  print 
out  of  all  the  output  wariables ,  Y ,  at  the  time  intervals 
specified.  If  this  is  sufficient  for  the  user  then  no 
further  specifications  are  required. 

However  if  the  user  wishes  to  specify  which  mathemati 
cal  techniques  are  used  during  the  solution  and/or  to 
specify  for  example  that  certain  elements  of  Y  should  be 
plotted  on  the  digital  plotter  then  he  must  supply 
additional  specifications  to  the  program. 

All  the  presently  available  options  are  specified  in 
the  following  sections .  The  user  may  elect  to  change  none 
a  selected  few,  or  all  of  the  options  from  their  standard 
values . 

A. 10.1  Vector  of  Options 

Most  of  the  options  defining  the  steps  to  be  followed 
in  the  solution  of  any  problem  are  defined  by  setting  the 
elements  of  the  vector  NOP(i)  to  the  desired  integer  value 
shown  in  Table  A-2.  The  user  is  referred  to  the  more 
extensive  description  of  the  program  given  in  Chapters  II , 
IV  and  V  for  details  of  the  methods. 


, 
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TABLE  A- 2 
Vector  of  Options 


NOP  ( 1 )  =  0 
=  1 

NOP  (2)  =  0* 
=  1  + 

NOP  (  3 )  =0 
=  1 

NOP  (4)  =  1 

* 

=  2 
=  3 
=  4 

NOP  (5)  =  0* 
=  1  + 

NOP  ( 6 )  =0 
=  1 

NOP  (7)  =  0 
=  1 

* 

=  2 

NOP  (8)  =0 

* 

=  1 
=  2 
=  3 
=  4  + 

NOP  (9)  =  0 
=  1 
=  2 
=  3 
=  4 

NOP  (10)  = 


transfer  function  plus  configuration  data  input 
matrix  input 

standard  integration  of  matrix  equation 

Runga-Kutta  method  for  integration 

Cayley-Hamilton  technique  to  find  the  fundamental 
matrix 

power  series  method 

CHEQN+BART  subroutines  to  find  eigenvalues  of 
matrix  A 

CHEQN+PRBM  (SSP) 

other 

other 

standard  procedure  to  find  the  fundamental  matrix 
use  eigenvectors  to  find  the  fundamental  matrix 
stop  for  positive  eigenvalue 
proceed 

both  matrix  C  and  D  are  ignored 
only  matrix  D  is  ignored 
neither  C  nor  D  is  neglected 
no  action  taken 

print  data  as  they  are  generated 

store  data  on  disk  file  to  plot  on  scope 

store  data  on  disk  file  to  plot  on  plotter 

store  data  on  permanent  file  for  later  use 

no  changes  desired  (exit) 

change  disturbance  parameter  or  type 

change  option  value, etc.. 

change  transfer  function  type  and/or  parameter 

vacant 

vacant 


*  =  standard  option 

t  =  method  not  implemented  in  present  program 


NOP (1) 
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NOP (2) 


NOP (3) 


NOP (4) 


NOP (5) 


NOP (6) 


is  set  by  the  first  data  card  as  described  in 
section  A. 2 . 

The  program  presently  calculates  the  fundamental 
matrix  in  order  to  define  a  recursive  difference 
equation  which  will  give  the  discrete  time  domain 
response  Y(nT)  ,  X(nT)  .  NOP (2)  =  1  is  a  provision 
for  future  addition  of  an  alternative  method  such 
as  Runga-Kutta  integration. 

Permits  the  user  to  choose  one  of  (at  present)  two 
alternative  methods  of  finding  the  fundamental 
matrix.  The  methods  are  independent  and  offer  a 
good  means  of  checking  the  accuracy  of  the  program. 
Under  some  conditions  one  method  will  work  when 
the  other  fails. 

Two  alternative  implementations  of  the  same  method 
of  calculating  the  distinct,  and/or  repeated 
and/or  complex  eigenvalues  of  A  are  provided. 

Others  may  be  readily  added. 

Is  a  provision  for  future  addition  of  a  method  of 
calculating  the  fundamental  matrix  <f>(T)  using  the 
eigenvectors.  This  option  improves  the  execution 
time  when  all  eigenvalues  are  distinct. 

Positive  eigenvalues  mean  an  unstable  time  domain 
solution  and  could  result  from,  say,  a  poor  choice 
of  controller  constants.  NOP (6)  =  0  will  stop  the 
solution  at  this  point  and  inform  the  user  rather 
than  proceed  with  the  solution. 


> 
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NOP (7) 


NOP (8) 


NOP  (9) 


permits  three  different  formulations  of  the 


problem 

for  matrix 

input . 

For 

• 

X  =  AX  + 

BU 

Y  =  CX  + 

DV 

NOP (7) 

=  2 

or 

Y  -  CX 

NOP (7) 

=  1 

or 

Y  is  not 

calculated 

NOP (7) 

=  0 

defines 

what  is  to 

be  done  with 

the  time  domain 

data  X(nT)  ,  Y  (nT )  . 

NOP  (8)  = 

=  0  is  an  option  to  omit 

the  calculation. 

NOP (8)  = 

=  1  implies 

the  printing 

out  of 

time  domain 

solution  for  variables  of  interest. 

NOP (8)  =  2,3  will  store  the  data  on  disk  for  later 
"standard"  plots  on  the  scope,  plotter. 

The  value  of  NOP (8)  can  be  reset  by  using  the  plot¬ 
ting  options  described  in  section  A. 11. 
permits  the  user  to  make  changes  to  the  problem 
specification  or  any  of  the  program  options  through 
a  terminal  and  then  have  his  problem  rerun.  Some 
changes  can  be  made  with  considerably  less  recalcu¬ 
lation  than  others  as  can  be  seen  from  the  flow 
diagram  in  Figure  2-1. 

NOP (9)  =  0  will  cause  an  exit. 

NOP (9)  =  1  will  cause  the  program  to  re-evaluate 
the  time  domain  solution  using  the  same  4>  (T)  and 
H(T)  coefficients  but  with  different  u. 


. 
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NOP (9)  =  2  will  start  with  the  matrix  definition  of 
the  problem  (whether  generated  by  the  program  or 
entered  by  the  user)  and  recalculate  the  time  domain 
solution . 

NOP (9)  =  3  essentially  allows  the  user  to  re-enter 
the  program  at  the  point  where  all  of  the  original 
problem  specifications  (data  cards)  and  subsequent 
changes  are  complete.  The  user  can  change  and/or 
add  to  these  previous  specifications  and  rerun  the 
solution . 

Examples  of  the  messages  which  assist  the  user  in  making 
changes  using  these  options  are  given  in  Table  A-3.  These 
messages  are  generated  at  the  completion  of  the  previous 
solution  in  accordance  with  the  current  value  of  NOP (9). 

A. 10. 2  Specifying  Non-Standard  Values  for  Option  Vector 
If  the  user  wishes  to  change  any  special  entry  from 
its  standard  value  he  may  do  so  either  in  the  original  data 
cards  or,  when  requested,  enter  any  desired  changes  via 
the  keyboard. 

The  standard  format  for  all  program  option  changes  is 
a  "0,0"  code  followed  by  an  "option  ID"  code  given  in  Table 
A- 4  and  then  the  new  values  of  the  options. 

Example:  0,0, 1,8, 2, 3,1  ** 

where  0,0  implies  a  program  option  change 

1  implies  a  change  to  NOP  vector 

8  identifies  NOP (8) 


1 
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TABLE  A- 3 

Messages  Assisting  the  User  in  Making  Changes 


Changing  Disturbance  Parameter (s )  :  ............  NOP  (9)  =  1 

ENTER  999 , DIST . NO+lOO , DIST . CODE  NO., 1ST  DIST . VALUE , 2ND  DIST. VALUE** 
999  101  1  2.0  0.0  ** 

IF  A  CHANGE  OF  ANY  OF  THE  FOLLOWING  IS  DESIRED  ENTER 
ID  NO . S  AND  NEW  VALUES  ** 

999  **  OTHERWISE  OR  AS  LAST  ENTRY 

1  WAY  OF  HANDLING  THE  OUTPUT  ... NOP ( 8 ) 

2  INITIAL  TIME  VALUE.  ..............  TO 

3  NO.  OF  TIME  INTERVALS .......... NPTS 

4  INITIAL  STATE  VECTOR.  ..........  X  ( 0 ) 

5  OUTPUT  VARIABLE  VECTOR. . » ....... .NY 

6  FURTHER  CHANGES  ..............  NOP ( 9  ) 

5  3** 

999  *  * 


Changing  Program  Control  Entries  (Options , etc .)  sNOP  ( 9 )  =  2 


ENTER  ID  NO . S  AND  NEW  VALUES  ** 
999  **  AS  LAST  ENTRY 

1  OPTION  (i) NO.  , OPTION (i)  VALUE 

2  TO  , DELT  , DELTH ..............o 

3  NUMBER  OF  POINTS ............ 

4  OUTPUT  VARIABLE  VECTOR. 

5  PRIORITY  NUMBER  FOR  OUTPUT.. 

13  1** 

999  ** 


*  * 
*  * 
*  * 
*  * 
*  * 


Changing  Original  Problem  Specifications:  ......  NOP  (9)  =  3 

ENTER  T.F.  TYPE  OR  PARAMETER  ** 

ENTER  NOP  (9)  VALUE  TO  STOP  OR  MAKE  A  DIFFERENT  CHANGE 

502  81** 

502  81** 

999  0  ** 

999  0  ** 


' 
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TABLE  A- 4 

Program  Control  Entries 


Code 

Option 

Description 

reference 

ID 

o 

o 

1 

vector  of  options 

a) 

o 

o 

2 

CRIT , TO , DELT , DELTH 

b) 

0,0, 

3 

NPTS 

c) 

0,0, 

4 

X(0) 

d) 

i 

O 

o 

5 

NY 

e) 

o 

o 

6 

NUPOP 

f) 

o 

o 

7 

NJOBS 

g) 

o, 

— 

job  number ,NPRTY , LUNI , 
LUNO 

h) 

o, 

— 

LUNI , LUNO 

i) 
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2  is  the  new  value  of  NOP (8) 

3  identifies  NOP (3) 

1  is  the  new  value  of  NOP (3) . 

As  many  option  changes  as  desired  can  be  entered. 

Each  change  simply  replaces  the  previous  specification. 

A. 10. 3  Specification  of  Time  Parameters 
DELT ,  NPTS  and  DELTH 

In  order  to  determine  the  time  domain  response,  X(t) , 
at  discrete  intervals  of  time,  DELT,  the  program  generates 
the  state  difference  equation 

X  [  (n+1)  *DELT]  =  ^_(DELT)  *X  [n*DELT]  +  H (DELT) *U (n*DELT)  (A-6) 

Starting  with  the  specified  initial  conditions  the  program 
uses  the  above  equation  to  generate  the  discrete  series  of 
values  of  the  time  domain  solution 

X(0)  ,  X(DELT)  ,  X ( 2  *DELT)  ...  X(  NPTS* DELT) 

where  NPTS  is  the  number  of  points  specified  by  the  user. 
Thus  DELT  determines  the  interval  for  generating  values  of 
the  time  domain  response  and  NPTS  determines  the  number  of 
discrete  values  generated. 

If  the  forcing  functions  U  are  constant  over  each 
interval  DELT  (which  usually  means  there  can  be  no  time 
delays  in  the  problem)  then  the  method  of  solution  is 
exact  and  the  discrete  values  generated  by  equation  (A-6) 
should  agree  exactly  with  the  continuous  solution  of  the 


‘ 
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original  problem  regardless  of  the  values  specified  for 
DELT  and  NPTS .  In  this  case  DELT  and  NPTS  are  simply 
selected  to  give  an  adequate  representation  of  the  time 
domain  solution  over  the  total  time  of  interest. 

In  a  more  typical  case  U  are  not  exactly  constant  over 
any  discrete  interval  and  hence  a  relatively  small  interval 
DELT  is  assumed  so  that  U  from  t  =  (n*DELT)  to  t  = 

[ (n+1) *DELT ]  can  be  adequately  represented  by  a  constant. 

In  other  cases  the  interval  DELT  is  fixed  by  the 
physical  process:  for  example,  a  control  device  introduc¬ 
ing  step  changes  into  the  physical  process  at  intervals  of 
DELT. 

Although  the  method  is  exact  the  numerical  implementa¬ 
tion  of  the  method  may  generate  errors  due  to  round-off 
errors,  etc.  For  example,  the  coefficient  H(DELT)  in 
equation  (A-6)  is  found  by  a  numerical  integration  of 
<£(t)  *B  over  the  interval  zero  to  DELT.  This  program  uses 
the  trapezoidal  method  of  integration  so  the  accuracy 
depends  on  the  size  of  the  integration  step.  The  size  of 
the  integration  step  is  DELTH  and  may  be  specified  by  the 
user.  Experience  to  date  indicates  that  DELTH  =  DELT/10 
is  usually  sufficient.  It  is  important  to  note  that  DELTH 
is  an  "internal"  variable  and  does  not  affect  the  number  or 
spacing  of  points  in  the  time  domain  solution. 


io 
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A. 10. 4  More  Program  Control  Entries 

With  reference  to  Table  A- 4  "standard"  values  for 
program  control  entries  b)  to  i)  are  now  given. 


b)  CRIT  =  3. 

It  means  that  10**(-CRIT)  =  1%  is  taken  as 

absolute  criterion  to  simplify  the  eigen¬ 
value  problem. 

TO  =  0  : 

initial  time  value  for  calculating  the  time 

domain  response.  Note  that  because  of  the 

recursive  relation  used  for  the  time  domain 

solution  an  other  than  zero  initial  time 

would  require  the  user  to  supply  the  state 

variable  vector  at  time  =  TO. 

DELT  =  0.1 

this  is  the  standard  time  interval. 

DELTH  =  .01 

this  is  the  standard  time  subinterval  to 

calculate  H(T)  equation  (A-6) .  ? 

c)  NPTS  =  10 

total  number  of  time  intervals  (or  11  pointy 

Note  that  if  NPTS  =  0  then  number  of  points 

DELT  +  1) ' 

d)  X(0)  =  0 

initial  state  vector  is  a  null  vector. 

e)  NY  =  Y 

all  output  variables  are  requested  in  the 

time  domain  solution. 

f)  NUPOP  =  0 

no  utility  program  is  desired  (see  Table  A-6) 

g)  NJOBS  =  1 

only  one  job  is  executed. 

h)  JOB  NUMBER  = 

=  1  standard  job  number  is  1. 

NPRTY  = 

=  3  priority  number  for  printing  output  is 

3  (see  Table  A-5) . 

. 
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LUNI  =  5  logical  unit  number  for  input  device 

is  5  (card  reader) . 

LUNO  =  6  logical  unit  number  for  output  device 

is  6  (1443  printer) . 
i)  LUNI ,  LUNO  as  in  h) . 

If  the  user  wishes  to  change  any  program  control  entry  from 
its  standard  value,  he  may  do  so  by  following  the  same 
procedure  described  for  the  options  (section  A. 10. 2) ,  i.e., 
using  the  "0,0"  code  followed  by  the  option  ID  given  in 
Talbe  A- 4  and  the  new  value (s) .  For  example  the  user  may 
change  the  logical  unit  numbers  for  I/O  device  selecting 
an  1816  typewriter.  In  such  a  case  the  last  card  in  the 
reader  hopper  would  show  as 
i)  0,3,4,**  or 
h)  0,1, 3, 3, 4,** 

After  this  card  has  been  read  all  1/0  are  forced  on 
the  typewriter  with  LUN  3,4  and  first  among  them  the  last 
entry  999  0  ** 

The  advantage  of  doing  so  is  to  avoid  messages  on  the 
printer  where  documentation  of  the  problem  solution  is 
being  printed.  Another  much  more  important  advantage  is 
that  with  terminal  1/0  the  user  after  looking  at  his  first 
solution  may  make  changes  and  have  the  solution  rerun. 

Some  of  the  more  frequent  changes  in  program  parameter  are 
collected  in  Table  A-7. 


I 
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NPRTY  = 


NPRTY  = 


NPRTY  = 


Examples 


TABLE  A- 5 

Priority  Number  for  Output 


3  implies  a  first  level  of  documentation  of  a  problem 

consisting  of: 

3.1  title  if  any 

3.2  input  data  cards 

3c 3  all  input  data  whether  supplied  by  the  user  or 
by  the  program 

304  the  coefficient  matrices  of  the  state  equation 
(A- 1 )  and  related  vectors 

3.5  the  coefficient  matrices  of  the  state  difference 
equation  (A- 2) 

3.6  the  time  domain  response  of  variables  of  interest 

5  implies  a  second  level  of  documentation 0 The  following 

output  is  added  to  the  previous  one, 

5,1  the  coefficients  of  the  characteristic  equation 

502  the  eigenvalues  of  coefficient  matrix  A 

5.3  the  shifted  eigenvalues  and  the  smallest  one 

5.4  the  eigenvalues  ordered  in  distinct , repeated  and 
complex  ones 

5.5  the  matrix  CC  used  to  find  the  coefficients  a. 
according  to  the  Cay ley-Hami lton  technique 

5.6  the  fundamental  matrix  0 (t)  at  each  time  subin¬ 
terval  (DELTH) 

10  adds  to  the  previous  output  all  results  required 

for  the  debugging  stage, If  necessary,  further  ouputs 
may  be  added  under  such  option, 

of  the  printout  produced  by  specifying  options 

3  and  NPRTY  =  5  are  included  in  Appendix  C, 


NPRTY 
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TABLE  A- 6 


Utility  Program  Options 


NUPOP 

NUPOP 

NUPOP 


0  no  utility  program  desired 

1-^9  vacant 

10  coefficient  matrices  of  the  state  difference 
equation  (A-2)  $ (T)  and  H(T)  are  punched  out 
in  format  5E1506oEach  matrix  is  preceded  by  a 
title0Enough  blank  cards  must  be  stacked  in  the 
reader  hopper  after  the  last  data  card. 
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TABLE  A- 7 

Input  Cards  for  Frequently  User— Specif ied  Changes  in 
Program  Parameters 


Change 

Input  Cards 

1816  typewriter  terminal  I/O. 

0,3,4,** 

plot  output  variables  on  the 

S  C  CD  P  0  ©o®®®ee>®©oe  »®®®«o®®®®* 

0,0, 1,8, 2,** 

specify  which  element  of  Y 
(i,j,k,..)  is  to  be  plotted 

0 , 0 , 5 , i , j ,k , . . ,** 

permit  the  user  to  enter 
changes  and  rerun  the  problem 

0,0, 1,9, 3,** 

Note:  The  0,3,4,**  card  is  usually  the  last  one  in  the 

user's  input  deck  since  all  further  input/output 
is  done  via  the  1816  terminal. 


s  f:  ax  Biio  3es>L  s rid  y  CIs-w  r 
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A. 11  Plotting 

There  are  eight  basic  options  which  define  the  type  of 
figure  produced  by  the  plotting  subroutines.  Each  of  these 
options  is  initially  set  by  the  program  to  the  "standard" 
choice  shown  in  Table  A-8.  The  user  is  offered  the  choice 
of  using  these  standard  values  or  to  changing  one,  or  any 
number  of  the  options.  If  the  user  has  specified  that 
input/output  is  to  be  the  1816  typewriter  and  that  NOP (8)  = 
2  or  NOP  (8)  =  3  at  the  beginning  of  the  last  problem 
solution  then  all  further  decisions  about  plotting  are  made 
as  a  result  of  questions  generated  by  the  program  and 
answers  entered  by  the  user  through  the  keyboard. 

A  plot  using  the  standard  options  is  shown  in  Figure 
A-2.  What  follows  is  an  example  of  the  messages  produced 
by  the  program  (upper  case  typing)  and  the  responses  by 
the  user  (underlined  messages  near  the  left  margin) . 
Additional  single  spaced  explanatory  messages  have  been 
added  between  program  messages. 

Note  that  these  options  can  be  used  for  example,  to 
plot  a  result  on  the  scope  for  visual  examination  and  then 
to  specify  that  the  same  results  be  plotted  on  the  digital 
plotter.  (No  recalculation  of  the  solution  is  involved, 
just  data  retreival  from  the  disk  file) . 
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Table  A- 8 


Standard  Plotting  Options 


Option 

Number 

Description 

1 

YMIN  and  YMAX  values  for  the  ordinate  of  the 
graph  as  found  by  searching  the  file  of  data 
to  be  plotted* 

2 

the  plot  is  produced  on  a  new  area  rather  than 
over  top  of  a  previous  graph* 

3 

the  figure  is  produced  on  either  the  scope  or 
the  digital  plotter  depending  on  the 
specification  of  N0P(8). 

4 

the  Y  data  is  plotted  as  a  continuous  line 
produced  by  linear  interpolation  between  the 
data  points  (other  options  are  to  use  a  +  or 

x  for  each  data  point) . 

5 

standard  figures  are  plotted  two  per  8.1/2"  x 

11"  page.  The  first  graph  is  produced  on  the 
top  half  of  the  page. 

6 

the  standard  label  for  the  X  axis  is  "T/TMAX" 
where  T  =  time  and  TMAX  =  NPTS*DELT. 

7 

I 

the  standard  label  for  the  Y  axis  in  "Y (n) " 
where  n  is  an  integer  constant  identifying 
the  particular  output  variable  plotted. 

8 

the  standard  title  is  "Time  Domain  Response". 

Note  : 


a  "standard"  graph  is  shown  in  Figure  A-2. 


* 

TIME  DOMAIN  RESPONSE 


A- 4  0 


O 

fcj 

o 

TO  30/3*0  (  S3VA331NI  TO  3t?ET‘0  )  00  3000' *0 

(  E  )  A 


A- 41 


Example  of  Input/Output  to  Produce  a  User  Selected  Plot 

The  first  message  is  printed  after  the 
program  has  solved  the  problem  specified 
by  the  user  and  stored  the  time  domain 
data  in  a  disk  file.  Note  that  the  user 
must  have  specified  LUNI  =  3,  LUNO  =  4 , 

NOP (8)  =  2  or  3. 


ENTER  1  **  IF  PLOT  IS  DESIRED 
0  **  OTHERWISE 

]_  *  * 

ENTER  1  **  FOR  PLOTTING  ALL  YS  IN  THE  STANDARD  FORM 
0  **  OTHERWISE 

0  ** 

ENTER  ID  NO.  FOR  DESIRED  VARIABLE  Y 


ID  Y 

1  1 

2  2 

3  3 


3  ** 

ENTER  1  **  FOR  STANDARD  GRAPH 
0  **  OTHERWISE 

If  a  1  **  was  entered  here  the  program  would 
plot  Y(3)  in  a  standard  figure  format. 

0  *  * 

ENTER  ID  NO.  AND  NEW  VALUES  ** 

1  YMIN , YMAS 

2  PLOT  STATUS . . 1-NEW , 2=OVERTOP , 3=OVERBOTTOM. . ** 

3  PLOT  TYPE . . -VE=LINE , 0=+ , 1=X  ETC 

4  DEVICE . . l=SCOPE ,2=PLOTTER. 

5  PLOT  POSITION. . l=TOP ,2=BOTTOM. .  .  ....  .  ......  ** 

6  ** . . LABEL  ON  X  AXIS ( 20A1) . . * 

7  **..  LABEL  ON  Y  AXIS  . . *..(  20A1)  ..  * 

8  ** .  .TITLE  ............ .  .  ( 4 OAl )  .  . * 


When  entering  a  new  label  or  title, 
blanks  should  be  used  to  fill  the 
allowed  input  field. 


LAST  ENTRY  IS  999  ** 


A- 4  2 


1  0.0  20.0  ** 


2  2** 

3  5** 
999  ** 

Program  plots  the  requested  figure  at 
this  point  and  then  returns  to  see  if 
the  user  wishes  any  additional  figures 
plotted . 

ENTER 

1  **  IF  PLOT  IS  DESIRED 

0  **  OTHERWISE 

0  *  * 

ENTER  NOP (9)  VALUE  FOR  FURTHER  CHANGES  (format  lb**) 
0  **  OTHERWISE 


o  ** 

The  program  terminates  at  this  point. 

NOTE  that  the  specification  of  NOP (9)  = 

3  by  typing  in  the  following  data: 

3,**b  would  essentially  return  the 
user  to  the  beginning  of  the  program 
where  he  could  make  any  changes  he 
wished  and  re-execute  the  problem. 

.  :  '  C  .  i.  ■  . 


APPENDIX  B 


Program  Flow  Diagrams 

Figure 

Number  Title 

B-l  General  Flow  Diagram 

B-2  Detailed  Flow  Diagram 


Page 

B-l 

B-3 


• 

B-l 


comments : 


c.c.  =  controller 
constants 


- -  =  program 

not  implemented 


. . . continue 


FIGURE  B-l 


General  Flow  Diagram 


comments : 


ei.vs  = 

values 

A 

i(T)  = 
mental 


eigen- 
of  matrix 

f unda- 
matrix 


B-3 


comments 

Link  LAST1  starts 


these  entries  are 
common  to  the  two 
types  of  input 


test: MFLAG . GT . 0 


Test : IFDFG . GT . 0 
Recalls  data  and 
problem  specifi¬ 
cations  entered 
during  previous 
r  uns . 


TF=transf er 
function  permits 
entry  of  additions, 
changes  or  new 
problems 


testrlst  value  = 
999 


. . . continue 


FIGURE  B-2  Detailed  Flow  Diagram 


B-4 


test  :1st  entry 

0,0,... 


test : 0 . LT . Is t 
entry . LT . 999 


continue 


B-5 


continue 


B-6 


.  .  . continue 


, 


find  coeffi¬ 
cients  of 
state 
equations 

V 

analyze  type 
of  TF  and 
set  flags 


V 


define  and 
zero  working 
matrices 


find  location 
of 

coefficient 
matrices 


the  TF  is  trans¬ 
formed  into  a 
system  of  first 
order  differential 
equations . 

State  variables 
are  introduced 
at  this  point. 


the  program  ana¬ 
lyzes  TF's,  steps 
accumulators  and 
sets  flags  for  spe¬ 
cial  cases 
Link  LAST5  starts 


working  matrices 
are : 

Al,  Bl,  Cl,  Dl, 

El ,  D2 ,  E 2 ,  F,G, 

H, AL , AM, AL1 

each  is  identified 
as  a  disk  file 


continue 


Link  LAST6  starts 


these  extra  matri¬ 
ces  are  used  to 
manipulate  the 
previous  ones  into 
standard  format 
X  =  AX  +  BU 
Y  =  CX  +  DV 


continue 


Link  LAST7  starts. 


test :NFLGl , NFLG2 
NFLG3.GT. 0 


manipulation  for 
these  special 
cases  is  quite 
different 

Special  cases 
include : 

-  isolated  time 
delays 

-  isolated  deri¬ 
vative  terms 


NOP  (7 )  is  reset 
according  to  the 
type  of  problem 

i.e. 

NOP  (7) =1  if  V=0 
NOP (7) =0  if 
V=C=0 


. . continue 


B-10 


.  . continue 


B- 11 


. continue 


B-12 


OF=overf low .Test 
is  done  to  check 
that  positive 
eigenvalues  do 
not  cause  over= 
flow  (LT.EXP  (80) ) 


this  is  a  test  to 
compare  the  effect 
of  eigenvalues  on 
the  final  response 


matrix  C£  is  used 
to  find  the  fun¬ 
damental  matrix 
according  to  the 
Cay ley-Hamilton 
technique 

Link  WAF5  starts. 

test :MPSFG=99 
P-S:  power  series 


C-H:  Cay ley- 

Hamilton 


. . . continue 


' 


B- 13 


V 


calculate 
£  at  t=T  s 


V 


T  =  time  sub- 
s 

interval 


H  (T)  ^integral 
between  0  and  T 
of: 

0 (t) Bdt 


is  calculated 
according  to  the 
trapezoidal  rule 

Link  WAF6  starts 


0 ,  H  are  coeffi¬ 
cient  matrices 
of  the  state 
difference  equa¬ 
tions  : 

~i+l  =^(T)SS(T)Hi 

Y.  =CX . +DV . 

-l  — l  — i 

test  for  output: 
NPRTY.GE. 3 

test :NUPOP=10 


Link  WAF7  starts 


. . „ continue 


B-14 


print  vari¬ 
ables  of 
interest 


\  store  va^i- 
_]  ables  of 
j  interest  in 
/disk  file 


exit 


test :NOP (8) =1  or 
NPRTY.GE. 3 


test :NOP (8) =2 , 3 


^17^  test :NOP (9) .GT. 0 


18 


’^enter^ne^ 

A 

values 

19 


enter  new 
value 

A 

test :NJOBS . GT . 1 


Link  WAF8  starts 


test :NOP (9) =1 
change  disturbance 
type  and/or 
parameter 


tes t :NOP  (9) =2 
change  option  value 
time  interval,  etc. 


. . continue 


' 


B-15 


test :NOP (9) =3 
change  TF  type 
and/or  parameter 

etc . . . 


Link  WAF10  starts 

COMMON  is  saved 
in  a  disk  file 
the  first  time 
through 


APPENDIX  C 


Complete  Documentation  of  the  Examples 


Example 

Number  Page 

6-1  C-l 

6-2-1  C-5 

6-2-2  C-ll 

6-3  C-16 

6-4  C-20 

6-5  C-24 

6-6  C-33 

6-7  C-3  8 


C-l 


*  JULY  69  * 

*  THIS  IS  A  TYPICAL  MATRIX  INPUT  PROBLEM  # 

*  FIVE  EQUATIONS  EVAPORATOR  MODEL  EXAMPLE  * 

*  THIS  RUN  USES  CAY  LEY-HAM  I LTON  TECHNIQUE* 

*  INPUT  DATA  CARDS  * 

1  *# 

*  THIS  IS  TO  CONTINUE  FOR  POSITIVE  EIGENVALUE* 

00161  ** 

*  THIS  DEFINES  THE  TYPE  OF  PROBLEM  * 

00171  ** 

*  THIS  SUPPLIES  CRIT»TO»DELT*DELTH  * 

002  3.0  C.O  0.0167  0.00167  ** 

*  THIS  SUPPLIES  THE  INITIAL  STATE  VECTOR  X ( 0 )  * 

004  37.5  4.34  152.3  26.9  7.51  ** 

*  THIS  GIVES  THE  NUMBER  OF  TIME  INTERVALS  * 

0  0  3  10  ** 

*'  STEADY  STATE  VALUES  ARE  ENTERED  AS  STEP  DISTURBANCES  * 
999  101  1  1.0  0.00  ** 

999  102  1  1.69  0.00  ** 

999  103  1  0.98  0.00  ** 

999  104  1  2.43  0.00  ** 

999  105  1  3.02  0.00  ** 

999  106  1  5 5  o  3  0.00  ** 

999  0  ** 

5  3  6  ** 

0  ** 

*  THIS  IS  MATRIX  A  * 

0.0  0.0  0.0  0.0  0.0  -0.002  -0.043  -0.014  -0.003  0.039 
-0.087  0.087  -0.571  -0.125  0.125  0,0  0.0  0.0  0.0  0.0  0.0 
0.0  0.0  -0.0001  -0.036  ** 

*  THIS  IS  MATRIX  B  * 

0.00  0.00  0.169  0.00  0.00  -0.045  0.00  0.00  ## 

0.061  -.024  0.00  0.00  0.00  -.036  0.00  ** 

0.065  -0.02  -C.04  0.00  0.00  0.00  0.045  0.00  0.00  ** 

0.00  0.00  0.00  0.025  0.00  0.00  ** 

*  THIS  IS  MATRIX  C  * 

1.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0  1.0  0.0  0.0 

0.0  1.0  ** 

END  OF  INPUT  DATA  FOR  JOB  NUMBER  1 


MATRIX  INPUT 


INPUT  MATRIX  FLAG 
JOB  NUMBER . 


1 

1 


, 


02 


PRIORITY  NUMBER  FOR  PRINTING  OUTPUT .  3 

LOGICAL  UNIT  NUMBER  FOR  INPUT  DEVICE....  3 

LOGICAL  UNIT  NUMBER  FOR  OUTPUT  DEVICE...  6 

OPTION*.  1 .  1 

OPTION..  2 . .  0 

OPTION..  3 . . .  0 

OPTION..  A . 2 

OPTION..  5.... .  0 

OPTION*.  6........ ............... .......  1 

OPTION..  7 . .  1 

OPTION..  8 . .  1 

OPTION*  *  9...  ............ ......  .........  0 

OPTION.  *10 .  0 

ABSOLUTE  CRITERION  VALUE  (PER  CENT) .  0.1000 

INITIAL  TIME  VALUE . 0.0000 

TIME  INTERVAL... . 0.0167 

TIME  SUBINTERVAL .  0.0016 

NUMBER  OF  TIME  INTERVALS . 10 


INITIAL  STATE  VARIABLE*.  1 .  37.3000 

INITIAL  STATE  VARIABLE..  2 .  4.3400 

INITIAL  STATE  VARIABLE..  3  . 152.3000 

INITIAL  STATE  VARIABLE..  4 . 26.9000 

INITIAL  STATE  VARIABLE..  5 .  7.5100 

DESIRED  OUTPUT/STATE  VARIABLE..  1 .  1 

DESIRED  OUTPUT/STATE  VARIABLE*.  2 .  2 

DESIRED  OUTPUT/STATE  VARIABLE..  3 .  3 


UTILITY  PROGRAM  NUMBER . .  0 


NUMBER 

OF 

JOBS. . . 

1 

DIST. . 

1 

CODE  .  . 

1 

1ST 

PAR.  . 

1.0000 

2ND 

PAR.  . 

0.0000 

DIST. . 

2 

CODE  .  . 

1 

1ST 

PAR.  . 

1.6900 

2ND 

PAR  .  . 

0.0000 

DIST.. 

3 

CODE  .  . 

1 

1ST 

PAR.  . 

0.9800 

2ND 

PAR  .  . 

0.0000 

DIST. . 

4 

CODE  .  . 

1 

1ST 

PAR.  . 

2.4299 

2ND 

PAR  .  . 

0.0000 

DIST.  . 

5 

CODE  .  . 

1 

1ST 

PAR.  . 

3.0200 

2ND 

PAR.  . 

0.0000 

DIST. . 

6 

CODE  .  . 

1 

1ST 

PAR.  . 

55.3000 

2ND 

PAR  .  . 

0.0000 

COEFFICIENT  MATRICES  OF  THE  STATE  EQUATION 
AND  RELATED  DATA 


NUMBER  OF  STATE  VARIABLES .  5 

NUMBER  OF  OUTPUT  VARIABLES .  3 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS....  6 

NUMBER  OF  TIME  DELAYS . . .  0 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  U ( T )  6 


1 

• 

C-3 


VARIABLE  IN 
VARIABLE  IN 
VARIABLE  IN 
VARIABLE  IN 
VARIABLE  IN 
VARIABLE  IN 

U  (  T  )  .  .  .  . 

U  (  T  )  •  .  .  . 

U  (  T  )  .  •  .  . 

U  (  T  )  .  .  .  . 

U  (  T  )  .  .  .  . 

U  (  T  )  .  .  .  . 

2 . .  .DELAY 

3 . .  .DELAY 

4. .  .DELAY 

5 . .  . DELAY 

6 . .  .DELAY 

VALUE. . . . 
VALUE  .... 
VALUE*.** 
VALUE . . . . 
VALUE  .... 
VALUE  .... 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

MATRIX 

A 

0.0000 

-0.0020 

-0.0870 

0.0000 

0.0000 

0.0000 

—0.0430 

0.0870 

0.0000 

0.0000 

0.0000 

-0.0140 

-0 .5709 

0.0000 

0.0000 

0.0000 

-0.0030 

-0.1250 

0 . 0000 

-0.0001 

0.0000 

0.0390 

0.1250 

0.0000 

-0.0360 

MATRIX 

B 

0.0000 

- 0 .0450 

0.0000 

0.0650 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

-0.0200 

0.0450 

0.0000 

0.1689 

0.0000 

0.0000 

-0 .0400 

0.0000 

0.0250 

0.0000 

0.0609 

-0.0360 

0.0000 

0.0000 

0.0000 

0.0000 

-0.0240 

0.0000 

0.0000 

0.0000 

0.0000 

MATRIX 

c 

1.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

1.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

.  1.0000 

POSITIVE  ROOT  FOUND  -  SYSTEM  UNSTABLE 
PROGRAM  IS  CONTINUED  AS  REQUESTED 


COEFFICIENT  MATRICES  OF  THE  STATE 
DIFFERENCE  EQUATION 


\ 

C-4 


IX 


(  T  ) 


0.9999E  GO 
0  *  OOOOE  GO 
0 • 0  0  G  J  E  CO 
0  •  0  C  0  J  E  G  0 
0.  OOOOE  00 


0.33? IF- 04 
0.9992E  00 
G.2326E-03 
0.49S3E- J4 
0 . 6505E-03 


0  .  1446F--02 
0 . 1445E-Q2 
C.9905E  GO 
0  *  2  0  7  7  F  "  0  2 
0.2077E-C2 


G  •  G  o  0  0  E  oo 
C . 0 0 0 0 E  JO 
0  .  0  o  0  0 1  0  0 
0  •  9  9  9  9  E  o  0 
0.  OOOOE  00 


O  «  O  0  J  L:  t.  O'  o 

0  .  'J  C  C  0  E  0  0 

0  •  0  0  0  v.1  ~  1 . 0 

0 . 1669E-05 
0 •  9  9  9  3  E  0  0 


MATRIX  H ( T  ) 


2043E- 

-0»7514F“ 

0  3 

n 

vO  • 

n 

O 

C  00  E 

CO 

0 

.  1 08  5 E“ 

0  2 

~Q  * 

125CE-07 

“*  J 

.  3  0  2  3  E 

2C43E- 

0  5 

0 . 0  0  0  0  E 

00 

,‘r\ 

'  J  « 

0 

CODE 

0  0 

—  o 

. 3343E- 

03 

0  * 

75  12E“03 

0 

•  3  0  2  2  F 

2S08E- 

0  2 

0.00 0  0  E 

00 

'A 

vO  • 

0 

v  u  u  t 

00 

. 664 7 E“ 

03 

r\ 

w  « 

3754E-07 

.  4  1  5  5  E 

2  9  3  6  E“ 

0  5 

0.1013E- 

0  2 

-  0  . 

6 

011E- 

0  3 

.  7  0  3  3  E  ~ 

0  6 

U  • 

1  875E-07 

-  j 

•  4  3  4  3  E 

2936E- 

^  c, 

V-' 

“0.4  0  0  6  E “ 

'0  3 

■J  • 

0  0  0  E 

00 

—  Q 

.  8  0-3  6E- 

0  6 

• 

2445E-06 

Q 

•  4  3  4  3  E 

TIME  DOmaI 

N  RESPONSE 

TI'E 

Y  (  1  ) 

Y  (  2  ) 

Y  (  3  ) 

0 . 0000 

37 . 5000 

26.9000 

7 . 5  200 

0.0167 

37.2809 

26 • 5844 

7 .3240 

0.0334 

3  7 . 0  6  3  9 

26.2718 

3  •  1  3  o  0 

0  .  C  5  0  0 

36.8489 

25.9620 

S  .4431 

0  •  0  6  6  8 

36.6359 

25.6552 

8.7462 

0.0834 

36.4249 

25.3513 

9.0504 

0.1001 

36.2159 

25.0501 

9 .3497 

0.1168 

36.0088 

24.7513 

9.6461 

0.1336 

35.3037 

24.4563 

9.9398 

0.1502 

3  5.6  0 0 5 

24.1635 

10.2306 

0.1669 

35.3992 

23.8734 

10.5186 

• 

JULY  69  * 


* 

*  IN  THIS  EXAMPLE  PI  CONTROLLER  CONSTANTS 

*  FROM  LIBRARY  ARE  COMPARED  FOR  A  UNIT 

*  STEP  CHANGE  IN  SET  POINT 

*  RATIO  OF  TIME  DELAY  TO  TIME  LAG  IS  0c3 

*  PROCESS  GAIN  IS  10 


* 

INPUT 

DATA  CARDS  * 

*  THIS 

IS 

THE 

MATRIX  INPUT  FLAG  * 

0 

*  THIS 

IS 

TO 

OBTAIN  A  PLOT  OF 

TIME  DOMAIN  DATA 

0  0  18 

3 

** 

*  THIS 

IS 

THE 

NUMBER  OF  TIME 

INTERVALS  =50  * 

0  0  3  5 

0 

*  THIS 

IS 

TO 

PROCEED  FOR  POSI 

TIVE  EIGENVALUES* 

0  0  16 

1 

** 

1  0  1.0 

0. 

0 

** 

101  101 

3 

1.0 

-1.0  ** 

203  10. 

0  0 

•  4 

0.5  ** 

103  2  1 

.0 

502  1  1 

#■* 

102  1  1 

.0 

*  THIS 

IS 

THE 

FORCING  FUNCTION  * 

999  101 

1 

1.0 

0  e  0  ** 

*  THIS 

IS 

TO 

CHANGE  THE  LOGICAL  UNIT  NUMBERS  * 

0  3  4 

#* 

CONTROLLER  CONSTANTS  FROM  LIBRARY 


PROCESS  GAIN . . . . .........  10.0000 

TIME  DELAY... . . .  0.4000 

TIME  LAG . 0.5000 

CONTROLLER  CODE . 5 

CODED  CRITERION  TO  SELECT  CONSTANTS..*..  1 

CODED  DISTURBANCE  TO  SELECT  CONSTANTS...  1 

PROPORTIONAL  CONSTANT . 0.1125 

INTEGRAL  TIME . 1.3332 

DERIVATIVE  TIME . 0.0000 


BLOCK  DIAGRAM  INPUT 


INPUT  MATRIX  FLAG . . . . .  0 

JOB  NUMBER . . . .  1 

PRIORITY  NUMBER  FOR  PRINTING  OUTPUT.....  3 

LOGICAL  UNIT  NUMBER  FOR  INPUT  DEVICE....  3 


■  ' 

- 


.  • 


- 


C-6 


LOGI 

OPTI 

OPTI 

OPTI 

OPTI 

OPTI 

OPTI 

OPTI 

OPTI 

OPTI 

OPTI 


CAL  UNIT  NUMBER  FOR  OUTPUT  DEVICE* •  • 


ON  e  ® 

1. 

ON  ®  # 

2. 

ON  ®  « 

3  . 

ON*  * 

4  * 

ON.  . 

ON  ®  * 

6  « 

ON  «  • 

7. 

ON  *  * 

8  e 

ON.  . 

9. 

ON  *  * 

10. 

ec.cc©ft0©cc..ce.e®e9.«ce«e 

ctettttceiiMMttiitiDtiti 

»«e*«ee. 

*©e«ce*«eo«*»i»e»e#»»o*e»Be 
«  I  t  I  M  •  I  •  (  I  <  M  t  I  I  I  M  t  I  M  M 

t»  l  »  l!  tttfft-t 

e  «  c  t  i  (  c  «  <  t  i  e  «  «  i  <  »  >  »  r  <  ;  «  t  t  i 

«  t  <  •  •  I  <  c  <  •  e  e  «  t  e  <  t  t  I  •  t  I  (  i  i  t 

t  «  c  «  «  <  «  t  «  •  t  t  i  i  •  •  <  t  (  •  »  i  •  e  t  • 


4 

0 

0 

0 

2 

0 

1 

2 

3 

0 

0 


ABSOLUTE  CRITERION  VALUE  (PER  CENT )••*©*  0.10CC 

INITIAL  TIME  VALUE...*...*.®.*..® 0*0000 

TIME  INTERVAL....... . . .  0.1000 

TIME  SUBINTERVAL*®.... ••••.•<* »*•*«•***»  0.0100 

NUMBER  OF  TIME  INTERVALS.® . .  50 

INITIAL  STATE  VARIABLE.*  1 . *.*.»•«.*  0.0000 

INITIAL  STATE  VARIABLE..  . . 0.0000 

DESIRED  OUTPUT/STATE  VARIABLE..  1  .  •  •  *  *  * .  1 

DESIRED  OUTPUT/STATE  VARIABLE..  2.*....*  2 

DESIRED  OUTPUT/STATE  VARIABLE..  3...**..  3 

UTILITY  PROGRAM  NUMBER  ..........  * . ..  0 

NUMBER  OF  JOBS.... . 1 


DIST..  1  CODE..  1  1ST  PAR..  1.0000  2ND  PAR.. 


COEFFICIENT  MATRICES  OF 
AND  RELATED 


THE  STATE 
DATA 


EQUATION 


ER 

OF 

ER 

OF 

ER 

OF 

ER 

OF 

ER 

OF 

STATE  VARIABLES.. 
OUTPUT  VARIABLES. 
EXTERNAL  FORCING 
TIME  DELAYS...... 


FUNCTIONS 


Ml. 


DELAYED 


EXTERNAL  FORCING  FUNCTIONS  IN  U(T) 
EXTERNAL  FORCING  FUNCTIONS  IN*..U(T) 


DELAYED  STATE  VARIABLES  IN 


U(T  ) 


2 

3 

1 

1 

1 

1 

2 


VARIABLE 

IN 

U  (  T  )  •  .  * . 

1.  .  .DELAY 

VALUE. • . . 

0.0000 

VARIABLE 

IN 

U  (  T  )  .  .  .  . 

1.  .  .DELAY 

VALUE*... 

0.4000 

VARIABLE 

IN 

U  (  T  )  •  .  e  . 

1. . .DELAY 

VALUE. . . . 

0.4000 

VARIABLE 

IN 

U  (  T  )  . .  . . 

2. . . DELAY 

VALUE. . ♦ . 

0.4000 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  V(T)  1 

VARIABLE  IN  V ( T  )  . . . •  1  ...  DEL AY  VALUE  ... .  0.0000 


0.0000 


MATRIX  A 


0000 

0.0000 

0843 

0.0000 

MATRIX 

B 

0000 

2.2499 

-2.2499 

20.0000 

0843 

0.0000 

0.0000 

0.0000 

MATRIX 

c 

0000 

0.0000 

1124 

1.0000 

0000 

0.0000 

MATRIX 

D 

1.0000 

0.1124 

0.0000 

COEFFICIENT  MATRICES  OF  THE  STATE 


DIFFERENCE  EQUATION 

MATRIX  FM ( T ) 

8187E  00 

O.OOOOE 

CO 

7648E-02 

0. 1000E 

01 

MATRIX  H ( T ) 


O.OOOOE  00 

0.2039E  00 

-0.2039E  00 

0.1812E  01 

0. 8438E-02 

-C.8887E-03 

C.  8887E-03 

-C.7900E-02 

TIME  DOMAIN  RESPONSE 


TIME 

0.0000 
0.1000 
0.2000 
0.3000 
0.4000 
0.5000 
0.6000 
0.7000 
0.8000 
0.9000 
1.0000 
1 .1000 
1.2000 

1.3000 

1.4000 

1.5000 

1.6000 

1.7000 

1.8000 

1.9000 
2.0000 
2.1000 
2.2000 

2.3000 

2.4000 

2.5000 

2.6000 

2.7000 

2.8000 

2.9000 
3.0000 

3.1000 

3.2000 

3.3000 

3.4000 

3.5000 

3.6000 

3.7000 

3.8000 

3.9000 
4.0000 

4.1000 

4.2000 

4.3000 

4.4000 

4.5000 

4.6000 

4.7000 

4.8000 

4.9000 
5.0000 


Y  (  1) 

1.0000 
1.0000 
1.0000 
1.0000 
1.0000 
0.7960 
0.6138 
0.4492 
C. 2992 
0.1611 
0.0760 
0.0327 
0.0227 
0.0394 
0.0778 
0.1248 
0.1713 
0.2109 
0.2395 
0.2542 
0.2551 
0.2440 
0.2239 
0.1982 
0.1704 
0.1435 
0.1200 
0.1012 
0.0879 
0.0798 
0.0763 
0.0762 
0.0783 
0.0813 
0.0840 
0.0859 
0.0862 
0.0848 
0.0819 
0.0777 
0.0726 
0.0670 
0.0614 
0.0561 
0.0514 
0.0475 
0 . 0444 
0.0419 
0.0401 
0.0388 
0.0377 


Y  (  2  ) 

0.1124 
0.1209 
0.  1293 
0.1378 
0.1462 
0.1308 
0.1162 
0.1022 
0.0884 
0.0748 
0.0662 
0.0618 
0.0609 
0.0631 
0.0679 
0.0740 
0.0805 
0.0666 
0.0917 
0.0955 
0.0977 
0.0986 
0.0983 
0.0972 
0.0956 
0.0939 
0.0924 
0.0912 
0.0905 
0.0903 
0.0905 
0.0912 
0.0921 
0.0931 
0.0941 
0.0950 
0.0958 
0.0963 
0.0967 
0.0969 
0.0970 
0.0969 
0.0968 
0.0967 
0.0967 
0.0966 
0.0967 
0.0968 
0.0969 
0.0971 
0.0973 


Y  (  3  ) 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.2039 

0.3861 

0.5507 

0.7007 

0.8388 

0.9239 

0.9672 

0.9772 

0.9605 

0.9221 

0.8751 

0.8286 

0.7890 

0.7604 

0.7457 

0.7448 

0.7559 

0.7760 

0.8017 

0.8295 

0.8564 

0.8799 

0.8987 

0.9120 

0.9201 

0.9236 

0.9237 

0.9216 

0.9186 

0.9159 

0.9140 

0.9137 

0.9151 

0.9180 

0.9222 

0.9273 

0.9329 

0.9385 

0.9438 

0.9485 

0.9524 

0.9555 

0.9580 

0.9598 

0.9611 

0.9622 
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j  J  J  u *  *  * 

U  J  J  U  *  * 

END  OF  INPUT  DATA  FOR  JOB  NUMBER  1 

INPUT  OF  A  T.F.  AND  ITS  CONFIGURATION  DATA  SET  COMPLETED 

INPUT  OF  A  T.F.  AND  ITS  CONFIGURATION  DATA  SET  COMPLETED 

DATA  TRANSMISSION  SUCCESSFUL 

ENTER  I  **  IF  PLOT  IS  DESIRED 
J  *  *  OTHERWISE 

1  *  * 

~ENTER  1  **  FOR  PLOTTING  ALL  YS  IN  THE  STANDARD  FORM 
J  **  OTHERWISE 

j  *  * 

ENTER  ID  NO.  FOR  DESIRED  VARIABLE  Y 

1  D  Y 

1  1 

2  2 

-f  “* 

:>  j 

3  *  * 

" ENTER  1  **  FOR  STANDARD  GRAPH 
J  **  OTHERWISE 

0  *  * 

ENTER  ID  NO.  AND  NEW  VALUES  ** 

1  ymin,ymax . ** 

2  PLOT  STATUS.  .  l  =  NEw, 2  =  OVERTOP,3  =  OVERBOTTOM.  . ** 

3  PLOT  TYPE  .  .  -  VE  =  L  I  NE>  0  =  + ,  1  =  X  ETC . ** 

4  DEVI  CE.  . 1  =  SCO PE/ 2  =  P LOTTED .  .  . . ** 

5  PLOT  PoS  I  T  I  0!i .  .  l  =  TO  P/ 2  =  BO  I  i  DM . ** 

u  **..  LABEL  ON  X  AXIS . *..(2JA1)..* 

7  **..  LABEL  ON  Y  AXIS . * . . ( 2J A1 )  .  .  * 

8  *  *  . .  T I  T  L  E . *  ,  .  (  4  0  A 1  ) .  .  * 

LAST  ENTRY  IS  JJJ  ** 

1  j  .  J  2.5  ** 

5  2  *  * 

o  *  * 

*'  ~  TIME  ANY  UNI T  * 

8  *  * 

*  ~CQMPAR  I  SON  OF  RESPONSES _ * 

OJJ  *  * 
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ENTER 


**  IF  PLOT  IS  DESIRED 
**  UTilERlil  SE 


0  *  * 

ENTER  NUP(J)  VALUE  FOR 
J  *  *  U  i ;  I E  K  U  I  S  E 


FURTHER  CHANGES 


3  *  * 

ENTER  T.F. TYPE  UR  PARA.  IE  TER  ** 
ENTER  NUP(J)  VALUE  TO  STOP  JR  MAKE 


A  DIFFERED 


CHANGE 


5U2  21** 

5 J  2  2  1** 

9  9  9  it  *  * 

9  9  9  u  *  * 


END  OF  INPUT  DATA  FOR  JOB  NUMBER  1 

INPUT  OF  A  T.F.  AND  ITS  CONFIGURATION  DATA  SET  COMPLETED 
INPUT  OF  A  T.F.  AND  ITS  CONFIGURATION  DATA  SET  COMPLETED 


DATA  TRANSMISSION  SUCCESSFUL 


' 
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*  JULY  69  * 


*  IN  THIS  EXAMPLE  PI  CONTROLLER  CONSTANTS  * 


*  FROM  LIBRARY  ARE  COMPARED  FOR  A  UNIT  * 

*  STEP  CHANGE  IN  LOAD  * 

*  RATIO  OF  TIME  DELAY  TO  TIME  LAG  IS  0.8  * 

*  PROCESS  GAIN  IS  10  * 


*  INPUT  DATA  CARDS  * 


*  THIS  IS  THE  MATRIX  INPUT  FLAG  * 
0  ** 


*  THIS  IS  TO  OBTAIN  A  PLOT  OF  TIME  DOMAIN  DATA  * 
00183  ** 


THE  NUMBER  OF 


TO  PROCEED 


*  THIS  IS 
0  0  3  50 

*  THIS  IS 
0  0  16  1 

1  0  1.0  0.0 

101  101  3  1.0  -1.0 
203  10.0  0.4  0.5 
103  2  102  1.0  1.0 
502  7  2 

102  1  1.0 


TIME  INTERVALS  =50  * 
FOR  POSITIVE  EIGENVALUES* 

** 

*•& 


*  THIS  IS  THE  FORCING  FUNCTION  * 

999  101  1  0.0  0.0  ** 

999  102  1  1.0  0.0  ** 

*  THIS  IS  TO  CHANGE  THE  LOGICAL  UNIT  NUMBERS  * 
0  3  4  ** 


CONTROLLER  CONSTANTS  FROM  LIBRARY 


PROCESS  GAIN . 10.0000 

TIME  DELAY . 0.4000 

TIME  LAG . 0.5000 

CONTROLLER  CODE*. . *.»«  5 

CODED  CRITERION  TO  SELECT  CONSTANTS.....  7 

CODED  DISTURBANCE  TO  SELECT  CONSTANTS...  2 

PROPORTIONAL  CONSTANT . 0.0875 

INTEGRAL  TIME . 0.9333 

DERIVATIVE  TIME.. . 0.0000 


BLOCK  DIAGRAM  INPUT 


INPUT  MATRIX  FLAG... . 0 

JOB  NUMBER . 1 

PRIORITY  NUMBER  FOR  PRINTING  OUTPUT..*..  3 


012 


LOGICAL  UNIT  NUMBER  FOR  INPUT  DEVICE....  3 

LOGICAL  UNIT  NUMBER  FOR  OUTPUT  DEVICE...  4 

OPTION.  «  1.  ...««...  «.«»«.««  0 

OPTION*.  2.  . . 0 

OPTION..  3..*.  . .  0 

OPTION*.  4...  . . 2 

OPTION*.  5..... . 0 

OPTION.  .  6 . 1 

OPTION.  .  7 . 2 

OPTION*.  8*.  ««.»*. «.«.«*. ..«...»* .......  3 

OPTION.  .  9. . . 0 

OPTION.  .  10  . .  .  . . .  . . . .  0 

ABSOLUTE  CRITERION  VALUE  (PER  CENT) .  0.1000 

INITIAL  TIME  VALUE. . 0.0000 

TIME  INTERVAL........... . 0.1000 

TIME  SUBINTERVAL............. .  0.0100 

NUMBER  OF  TIME  INTERVALS . 50 

INITIAL  STATE  VARIABLE..  . .  0.0000 

INITIAL  STATE  VARIABLE..  2... . 0.0000 

DESIRED  OUTPUT/STATE  VARIABLE..  1.......  1 

DESIRED  OUTPUT/STATE  VARIABLE..  2.......  2 

DESIRED  OUTPUT/STATE  VARIABLE..  3...**..  3 

UTILITY  PROGRAM  NUMBER ............  * .  0 

NUMBER  OF  JOBS . 1 

DIST..  1  CODE..  1  1ST  PAR..  0.0000  2ND  PAR..  0.0000 

DIST..  2  CODE..  1  1ST  PAR..  1.0000  2ND  PAR..  0.0000 


COEFFICIENT  MATRICES  OF  THE  STATE  EQUATION 
AND  RELATED  DATA 

NUMBER  OF  STATE  VARIABLES.. . .  2 

NUMBER  OF  OUTPUT  VARIABLES... .  3 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS....  2 

NUMBER  OF  TIME  DELAYS . . . .  1 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  U(T)  1 

DELAYED  EXTERNAL  FORCING  FUNCTIONS  IN...U(T)  2 

DELAYED  STATE  VARIABLES  IN . . . .  U  <  T  )  2 

VARIABLE  IN  U(T)....  1.. .DELAY  VALUE**..  0.0000 

VARIABLE  IN  U(T)....  1.. .DELAY  VALUE.*..  0.4000 

VARIABLE  IN  U(T)....  2. ..DELAY  VALUE....  0.4000 

VARIABLE  IN  U(T)....  1.. .DELAY  VALUE....  0.4000 

VARIABLE  IN  U(T)....  2. ..DELAY  VALUE....  0.^000 
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NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  V ( T )  1 

VARIABLE  IN 

V  (  T  )  •  •  •  • 

1. . .DELAY 

VALUE....  0.0000 

MATRIX 

A 

-2.0000 

0.0000 

-0.0937 

0.0000 

MATRIX 

B 

0.0000 

1.7499 

20.0000 

-1.7499  20.0000 

0.0937 

0.0000 

0.0000 

0.0000  0.0000 

MATRIX 

C 

“1.0000 

0.0000 

-0.0874 

1.0000 

1.0000 

0.0000 

MATRIX 

D 

1.0000 

0.0874 

0.0000 

COEFFICIENT  MATRICES  OF  THE  STATE 
DIFFERENCE  EQUATION 

MATRIX  FM ( T  ) 


0.8187E  00 

O.OOOOE 

00 

0.8497E-02 

0. 1000E 

01 

MATRIX  H ( T ) 

0.0000E  00 

0. 1586E 

00  0.1812E  01 

-0.1586E  00 

0.1812E  01 

0.937  5E-02 

-0.7680E- 

•03  -0. 8777E-Q2 

0.7680E-03 

-0. 8777E-02 

TIME  DOMAIN  RESPONSE 


TIME 

Y  (  1) 

Y  (  2) 

Y  (  3  ) 

0*0000 

0.0000 

0.0000 

0.0000 

0.1000 

0.0000 

0.0000 

0.0000 

0.2000 

0,0000 

0.0000 

0,0000 

0.3000 

0.0000 

0.0000 

0.0000 

0.4000 

0.0000 

0.0000 

0.0000 

0.5000 

-1.8127 

-0.1673 

1.8127 

0.6000 

-3.2969 

-0.3214 

3.2969 

0.7000 

-4.5120 

"0.4645 

4.5120 

0.8000 

-5.5068 

-0.5987 

5.5063 

0.9000 

-6.3214 

-0.7255 

6.3214 

1.0000 

-6.6848 

-0.8183 

6.6843 

1 .1000 

-6.7031 

"0.8827 

6.7031 

1.2000 

-6.4587 

-0,9230 

6.4587 

1.3000 

-6.0153 

-0.9426 

6,0153 

1.4000 

-5,4224 

-0,9442 

5.4224 

1.5000 

-4.7637 

-0.9347 

4.7687 

1.6000 

-4.1169 

-0.9192 

4.1169 

1.7000 

-3.5102 

"0.9018 

3.5102 

1.8000 

-2.9779 

"0.8855 

2.9779 

1.9000 

-2.5391 

-0.8729 

2.5391 

2.0000 

-2.1972 

-0.8651 

2.1972 

2.1000 

-1.9453 

-0.8625 

1.9453 

2.2000 

-1.7707 

-0.8646 

1.7707 

2.3000 

-1.6571 

-0.8707 

1.6571 

2.4000 

-1.5870 

-0.8798 

1.5870 

2.5000 

-1.5437 

-0.8906 

1.5437 

2.6000 

-1.5131 

-0.9023 

1.5131 

2.7000 

—1.4841 

-0.9138 

1.4841 

2.8000 

-1.4494 

-0.9245 

1.4494 

2.9000 

-1.4045 

-0.9340 

1.4045 

3.0000 

-1.3480 

-0.9419 

1.3480 

3.1000 

-1.2807 

-0.9483 

1.2807 

3.2000 

-1.2047 

-0.9533 

1.2047 

3.3000 

-1.1231 

-0.9571 

1.1231 

3.4000 

-1.0391 

-0.9598 

1.0391 

3.5000 

-0.9560 

-0.9619 

0.9560 

3.6000 

-0.8763 

-0.9635 

0.8763 

3.7000 

-0.8019 

-0.9649 

0.8019 

3.8000 

-0.7343 

-0.9661 

0.7343 

3.9000 

-0.6739 

“0.9674 

0.6739 

4.0000 

-0.6207 

“0.9688 

0.6207 

4.1000 

-0.5742 

-0.9704 

0.5742 

4.2000 

-0.5337 

-0.9720 

0.5337 

4.3000 

-0.4983 

-0.9737 

0.4933 

4.4000 

-0.4669 

-0.9755 

0.4669 

4.5000 

-0.4386 

-0.9773 

0.4386 

4.6000 

-0.4127 

-0.9790 

0.4127 

4.7000 

-0.3885 

-0.9806 

0.3885 

4.0000 

4.9000 

5.0000 


“0.3656 

-0.3436 

-0.3224 


”0.9822 

-0.9836 

-0.9848 


0.3656 

0.3435 

0.3224 
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*  JULY  69  * 

*  THIS  EXAMPLE  DEALS  WITH  Z IEGLER-N ICHOLS  * 

*  CLOSED-LOOP  TUNING. THE  SYSTEM  IS  SUBJECTED  * 

*  TO  A  STEP  CHANGE  IN  SET  PO I  NT  «  THE  GAIN  IS  * 

*  INCREASED  TILL  SUSTAINED  OSCILLATIONS  * 

*  EXAMPLE  1 9  *  1 ♦ PAGE  237  OF  COUGHANOWR-KOPP EL  * 

*  INPUT  DATA  CARDS  * 


*  TH 

IS 

IS  THE  MATRIX  INPUT  FLAG 

* 

0 

*# 

*  TH 

IS 

DEFINES  50  TIME  I 

NT  ERVALS 

# 

0  0 

3  5 

0 

401 

3.0 

** 

2  0 

1.0 

0.0  -1  1.  1.  “1 

1.  2.0 

■*# 

*  TH 

IS 

IS  AN  ISOLATED  TI 

ME  DELAY 

* 

3  0 

1.0 

0.5 

**■ 

101 

101 

3  1.0  -1.0 

** 

102 

1  1 

.0 

*# 

103 

2  1 

.0 

** 

999 

101 

1  1.0  0.0 

*  TH 

IS 

IS  TO  OBTAIN  A  PLOT  OF  TI 

ME 

0  0 

1  8 

3 

** 

*  TH 

IS 

CARD  DEFINES  NEW 

LOGICAL 

UN 

0  22 

3 

3  4 

** 

DOMAIN  RESPONSE  * 


NUMBERS  * 


BLOCK  DIAGRAM  INPUT 


INPUT  MATRIX  FLAG.. 

JOB  NUMBER.. . 

PRIORITY  NUMBER  FOR 
LOGICAL  UNIT  NUMBER 
LOGICAL  UNIT  NUMBER 


PRINTING  OUTPUT..... 
FOR  INPUT  DEVICE.... 
FOR  OUTPUT  DEVICE... 


0 

22 

3 

3 

4 


OPTION..  1.. 
OPTION*.  2.. 
OPTION..  3.. 
OPTION..  4.. 
OPTION..  5.. 
OPTION*.  6.. 
OPTION..  7.. 
OPTION..  8.. 
OPTION..  9.. 
OPTION. . 10 . . 


0 

0 

0 

2 

0 

0 

2 

3 

0 

0 


ABSOLUTE  CRITERION  VALUE  (PER  CENT) .  0.1000 

INITIAL  TIME  VALUE . .  0.0000 

TIME  INTERVAL.... . . . . .  0.1000 


. 
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TIME  SUBINTERVAL*® ....&•. •<«•«•< « «  «  « *  < «  «  0*0100 

NUMBER  OF  TIME  I  NTERVALS  •  •  •  *  . . .  50 

INITIAL  STATE  VARIABLE.  •  1 . 0.0000 

INITIAL  STATE  VARIABLE..  2 . 0.0000 

DESIRED  OUTPUT/STATE  VARIABLE..  1 . 1 

DESIRED  OUTPUT/STATE  VARIABLE..  2......®  2 

DESIRED  OUTPUT/STATE  VARIABLE..  3..®*...  3 

UTILITY  PROGRAM  NUMBER . . . .  0 

NUMBER  OF  JOBS* .•»••.••••••• 1 

D I  ST  •  .  1  CODE..  1  1ST  PAR..  1.0000  2ND  PAR..  0.0000 

COEFFICIENT  MATRICES  OF  THE  STATE  EQUATION 
AND  RELATED  DATA 

NUMBER  OF  STATE  VARIABLES....... . .  2 

NUMBER  OF  OUTPUT  VARIABLES..... .  3 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS....  1 

NUMBER  OF  TIME  DELAYS . . . .  1 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  U(T)  1 

DELAYED  EXTERNAL  FORCING  FUNCTIONS  IN...U(T)  0 

DELAYED  STATE  VARIABLES  IN . .....U(T)  1 

VARIABLE  IN  U(T)....  1.. .DELAY  VALUE....  0.0000 

VARIABLE  IN  U(T)....  1. ..DELAY  VALUE....  0.5000 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  V(T)  1 

DELAYED  EXTERNAL  FORCING  FUNCTIONS  I N • • . V  <  T )  0 

DELAYED  STATE  VARIABLES  IN . .  1 

VARIABLE  IN  V(T)....  1.. .DELAY  VALUE....  0.0000 

VARIABLE  IN  V ( T  )  . • . .  1.. .DELAY  VALUE....  0.5000 

MATRIX  A 

0.0000  1.0000 

-0.5000  -1.5000 

MATRIX  B 

0.0000  0.0000 


1.5000 


-1.5000 


’ 


MATRIX  C 


0,0000 

1,0000 

0,0000 


0,0000 

0,0000 

0,0000 


MATRIX  D 


3,0000  “3.0000 
0.0000  0.0000 
0,0000  1.0000 

COEFFICIENT  MATRICES  OF  THE  STATE 
DIFFERENCE  EQUATION 


MATRIX 

FM  (  T  ) 

0.9976E  00 

0.9278E-01 

-0.4639E-01 

0.8584E  00 

MATRIX 

H  (  T  ) 

0.7133E-02 

-0.7133E-02 

0.1391E  00 

-0.1391E  00 

TIME  DOMAIN  RESPONSE 

TIME 

Y  (  1) 

Y  (  2  ) 

Y  (  3  ) 

0.0000 

3.0000 

0.0000 

0.0000 

0.1000 

3.0000 

0.0071 

0.0000 

0.2000 

3.0000 

0.0271 

0.0000 

0.3000 

3.0000 

0.0582 

0.0000 

0.4000 

3.0000 

0.0985 

0.0000 

0.5000 

3.0000 

0.1467 

0.0000 

0.6000 

2.9785 

0.2015 

0.0071 

0.7000 

2.9185 

0.2615 

0.0271 

0.8000 

2.8253 

0.3257 

0.0582 

0.9000 

2.7042 

0.3927 

0.0985 

1.0000 

2.5596 

0.4614 

0 .1467 

1.1000 

2.3954 

0.5306 

0.2015 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 
4 
4 
4 
4 
4 
4 
4 
4 

4 

5 


•  2000 

2.2152 

0.5992 

0. 

•  3000 

2.0228 

0.6661 

0. 

•  4000 

1.8217 

0.7304 

0. 

.5000 

1.6156 

0.7913 

0. 

.6000 

1.4080 

0.8481 

0. 

•  7000 

1.2023 

0.8999 

0. 

•  8000 

1.0015 

0.9465 

0. 

.9000 

0.8085 

0.9872 

0. 

.0000 

0.6258 

1.0219 

0. 

.1000 

0.4556 

1.0503 

0. 

.2000 

0.3000 

1.0724 

0. 

.3000 

0.1604 

1.0882 

0. 

.4000 

0.0382 

1.0978 

0. 

.5000 

-0.0658 

1.1014 

1. 

•  6000 

“0.1510 

1.0993 

1  . 

.7000 

-0.2173 

1.0919 

1  . 

.8000 

-0.2647 

1.0796 

1  . 

.9000 

-0.2934 

1.0629 

1  . 

.0000 

-0.3043 

1.0423 

1  • 

.1000 

-0.2981 

1.0184 

1  . 

.2000 

-0.2759 

0.9916 

1  . 

.3000 

-0.2390 

0.9626 

1 . 

.4000 

-0.1889 

0.9321 

1  . 

.5000 

-0.1271 

0.9004 

1. 

.6000 

-0.0552 

0.8683 

1  . 

.7000 

0.0250 

0.8362 

0. 

.8000 

0.1119 

0.8046 

0. 

.9000 

0.2036 

0.7740 

0. 

.0000 

0.2986 

0.7448 

0. 

.1000 

0.3950 

0.7174 

o. 

.2000 

0.4913 

0.6920 

0. 

.3000 

0.5861 

0.6691 

0. 

.4000 

0.6779 

0.6488 

0. 

.5000 

0.7655 

0.6312 

0. 

.6000 

0.8477 

0.6165 

0. 

.7000 

0.9237 

0.6047 

0. 

.8000 

0.9924 

0.5959 

0. 

.9000 

1.0535 

0.5900 

o. 

.0000 

1.1062 

0.5869 

o. 

2615 

3257 

3927 

4614 

5306 

5992 

6661 

7304 

7913 

8481 

8999 

9465 

9872 

0219 

0503 

0724 

0882 

0978 

1014 

0993 

0919 

0796 

0629 

0423 

0184 

9916 

9626 

9321 

900^ 

8683 

8362 

8046 

7740 

7448 

7174 

6920 

6691 

6488 

6312 
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*  JULY  69  * 


*  THIS  IS  A  THIRD  ORDER  EXAMPLE  TO  TEST  THE  * 

*  CAYLEY “HAMILTON  TECHNIQUE  AGAINST  THE  POWER* 

*  SERIES  METHOD • THE  EXAMPLE  HAS  BEEN  CHOSEN  * 

*  BECAUSE  OF  COMPLEX  EIGENVALUES  * 


*  INPUT  DATA  CARDS  * 


*  THIS  IS  THE  MATRIX  INPUT  FLAG  * 
0  #*- 


*  THIS  GIV 
0  0  3  50 

*  THIS  IS 
0  0  18  3 

401  1.0 

402  2.0 

3  0  1.0  0. 
204  1.0  0. 

101  101  4 

102  1  1.0 

103  2  1.0 

104  3  1.0 
999  101  1 
0  3  4 


ES  THE  NUMBER  OF  TIME  INTERVALS  * 

FOR  PLOTTING  THE  TIME  DOMAIN  RESPONSE  * 

** 

2  -2  8.0  0.2  1.0  ** 

0  1.0  ** 

1.0  “1.0  ** 


1.00.0  ** 

■*# 


BLOCK  DIAGRAM  INPUT 


INPUT  MATRIX  FLAG.. 

JOB  NUMBER . 

PRIORITY  NUMBER  FOR 
LOGICAL  UNIT  NUMBER 
LOGICAL  UNIT  NUMBER 


PRINTING  OUTPUT..... 
FOR  INPUT  DEVICE.... 
FOR  OUTPUT  DEVICE... 


0 

1 

3 

3 

4 


OPTION.  . 

1 

OPTION. . 

2 

OPTION. . 

3 

OPTION. • 

4 

OPTION.  . 

5 

OPTION.  . 

6 

OPTION. . 

7 

OPTION.  . 

8 

OPTION.  . 

9 

OPTION. . 

0 

0 

0 

2 

0 

0 

2 

3 

0 

0 


ABSOLUTE  CRITERION  VALUE  (PER  CENT).....  0.1000 

INITIAL  TIME  VALUE . 0.0000 

TIME  INTERVAL... . 0.1000 

TIME  SUBINTERVAL . 0.0100 


' 

!  ■ .. 
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NUMBER  CF  TIME  I NTER VALS  *  .  . . • o . .  .  . .  .  •  «  . .  50 

INITIAL  STATE  VARIABLE..  1 . . .  0.0000 

INITIAL  STATE  VARIABLE**  . . .  0.0000 

INITIAL  STATE  VARIABLE..  3 .........  e  ... .  0.0000 

DESIRED  OUTPUT/STATE  VARIABLE..  1  . .  .  •  .  .  .  1 

DESIRED  OUTPUT/STATE  VARIABLE..  2. ......  2 

DESIRED  OUTPUT/STATE  VARIABLE..  3...«...  3 

DESIRED  OUTPUT/STATE  VARIABLE..  4«mmm  4 

UTILITY  PROGRAM  NUMBER ......«.•••••••*• «  0 

NUMBER  OF  JOBS.... . . . .  1 


DIST..  1  CODE..  1  1ST  PAR..  1.0000  2ND  PAR. * 


COEFFICIENT  MATRICES  OF  THE  STATE  EQUATION 
AND  RELATED  DATA 


NUMBER  OF  STATE  VAR  I ABLES  ........  . . .  3 

NUMBER  OF  OUTPUT  VARIABLES.... . .  4 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS....  1 

NUMBER  OF  TIME  DELAYS . .  1 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  U(T)  0 

DELAYED  EXTERNAL  FORCING  FUNCTIONS  IN...U(T)  1 

DELAYED  STATE  VARIABLES  IN........ . .U(T)  1 


VARIABLE  IN  U(T)....  1.. .DELAY  VALUE....  0.2000 

VARIABLE  IN  U(T)....  3. ..DELAY  VALUE....  0.2000 

NUMBER  CF  EXTERNAL  FORCING  FUNCTIONS  IN  V ( T )  1 


VARIABLE  IN  V ( T  )  • • • •  1.. -DELAY  VALUE....  0.0000 


MATRIX  A 


0.0000 

8.0000 

1.0000 


1.0000  0.0000 

-0.2000  0.0000 

0.0000  -1.0000 

MATRIX  B 


0.0000  0.0000 
2.0000  -2.0000 


0.0000 
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OoOOOO  0.0000 

MATRIX  C 


0000 

0.0000 

-1.0000 

0000 

0.0000 

-2.0000 

0000 

0.0000 

0.0000 

0000 

0.0000 

1.0000 

MATRIX  D 

1.0000 

2.0000 

0.0000 

0.0000 

COEFFICIENT  MATRICES  OF  THE  STATE 
DIFFERENCE  EQUATION 


MATRIX  FM  <  T  > 

0.9605E 

00 

0.9769E-01 

O.OOOOE 

00 

-0.7815E 

00 

0  «  9409  E  00 

O.OOOOE 

00 

0.9387E- 

■01 

0.4772E-02 

0.9048E 

00 

MATRIX  H ( T  ) 


0  «  9866E-02 
0.1953E  00 
0  •  3237E-03 


-0.9866E-02 
-0  •  1953E  00 
-0.3237E-03 


TIME  DOMAIN  RESPONSE 


TIME 

Y  (  1  ) 

Y  (  2) 

Y  (  3  ) 

Y  (  4) 

0.0000 

1.0000 

2.0000 

0.0000 

0.0000 

0.1000 

1.0000 

2.0000 

0.0000 

0.0000 

•  •  • 
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0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 
4 
4 
4 
4 
4 
4 
4 
4 

4 

5 


.2000 

1 . 0000 

2.0000 

0.0000 

.3000 

0.9996 

1.9993 

0.0098 

.4000 

0.9975 

1.9950 

0.0384 

.5000 

0.9920 

1.9841 

0.0830 

.6000 

0.9822 

1.9644 

0 .1399 

.7000 

0.9675 

1.9350 

0 .2043 

.  8000 

0.9479 

1.8958 

0.2709 

.9000 

0 .9239 

1 . 8479 

0 .3343 

.0000 

0.8966 

1.7933 

0 .3893 

.1000 

0.8672 

1 .7345 

0.4314 

.2000 

0.8374 

1 .6749 

0.4571 

.3000 

0.8089 

1.6178 

0  *  4  6  4  3 

.4000 

0.7833 

1.5667 

0.4521 

.  5000 

0 . 7622 

1 .5245 

0.4214 

.6000 

0 . 7469 

1.4939 

0 .3743 

.7000 

0.7382 

1.4764 

0 . 3  143 

.8000 

0 .7364 

1.4729 

0.2460 

.9000 

0.7416 

1.4832 

0 .1746 

.0000 

0.7529 

1.5059 

0 .1054 

.1000 

0.7694 

1.5389 

0.0438 

.2000 

0.7897 

1.5795 

-0.0054 

.3000 

0.8120 

1.6240 

“0.0386 

.4000 

0.8344 

1.6689 

“0.0532 

.5000 

0.8551 

1.7103 

“0.0479 

.6000 

0.8724 

1.7449 

“C.0232 

.7000 

0 .8849 

1.7698 

0.0190 

.8000 

0.8914 

1.7828 

0.0755 

.9000 

0.8913 

1.7827 

0 . 1419 

.0000 

0.8847 

1 . 7695 

0.2132 

.1000 

0.8720 

1.7440 

0.2837 

.2000 

0 .8540 

1.7080 

0 .3480 

.3000 

0.8320 

1.6641 

0.4012 

.4000 

0.8079 

1.6158 

0.4390 

.5000 

0 .7833 

1  •  5  6  66 

0.4585 

.6000 

0.7601 

1.5203 

0.4581 

.7000 

0.7402 

1.4604 

0.4377 

.8000 

0.7250 

1.4500 

0.3990 

.9000 

0.7157 

1.4314 

0.3449 

.0000 

0.7130 

1.4260 

0.2794 

.10  00 

0.7172 

1.4344 

0.2077 

.2000 

0.7278 

1.4557 

0.1351 

.3000 

0 . 7442 

1 .4884 

0.0676 

.4000 

0.7650 

1.5300 

0.0099 

.  50  00 

0.7886 

1.5772 

-0.0330 

.6000 

0.8132 

1.6265 

“0 .0580 

.7000 

0.8369 

1.6739 

-0.0632 

.8000 

0.8579 

1.7158 

-0.0430 

.9000 

0 .8745 

1 . 7490 

“0 . 0136 

.0000 

0.8853 

1.7707 

0.0374 

0.0000 
0.0003 
0.0024 
0.0079 
0.0177 
0.0324 
0.0520 
0.0760 
0.1033 
0.1327 
0.1625 
0*1910 
C.2166 
0.2377 
0.2530 
0.2617 
0.2635 
0.25S3 
0.2470 
0.2305 
0.2102 
0 .1879 
0.1655 
0 . 1448 
0.1275 
0 .1150 
0.1085 
0 .1086 
0.1152 
0 .1279 
0 . 1459 
0 .1679 
0.1920 
0.2166 
0 .2398 
0.2597 
0.2749 
0.2842 
0.2869 
C  .2827 
0.2721 
0.2557 
0.2349 
0.2113  ' 
0 .1867 
0 .1630 
0 .1420 
0.1254 
0.1146 


, 

■ 

C-24 


*  JULY  69  * 

*  THIS  EXAMPLE  CONSISTS  OF  A  MULTILOOP  * 

*  FEEDBACK  BLOCK  DIAGRAM. IT  IS  GIVEN  AS  * 

*  PROBLEM  A-4~  1  PAGE  223  IN  OGATA. THE  OUT-* 

*  PUT  IS  AN  EXAMPLE  OF  LEVEL  5  OF  DOCUMEN-* 

*  T  AT  I  ON ( SEE  USER'  MANUAL)  * 

*  INPUT  DATA  CARDS  * 


0  tf* 

0  0  3  30  ## 

0  0  2  10.  0.0  0.1  0.01  ** 

0  0  16  1  #* 

301.00.0  ** 

510.01.0 

2  0  10. 0  0. 0  -1  3.0  1.0  ** 

4  0  2.0  0.0  -1  0.0  1.0  -1  1.0  1.0  ** 

1  0  1.0  0.0  ** 

101  101  4  1.0  -l.o  ** 

102  1  1.0  ** 

103  2  5  1.0  -1.0  ** 

104  3  1.0  *# 

105  4  1.0  ** 

999  101  1  1.0  0.0  ** 

0  0  1  8  3  ** 

05534  ** 


BLOCK  DIAGRAM  INPUT 


INPUT  MATRIX  FLAG . 0 

JOB  NUMBER .  5 

PRIORITY  NUMBER  FOR  PRINTING  OUTPUT.....  5 

LOGICAL  UNIT  NUMBER  FOR  INPUT  DEVICE.*..  3 

LOGICAL  UNIT  NUMBER  FOR  OUTPUT  DEVICE...  4 

OPTION.  •  1 . . . .  •  0 

OPTION.  .  2 . 0 

OPTION..  3 . 0 

OPTION.  .  4 . 2 

OPTION.  .  5 . . . * . .  0 

OPTION..  6 . 1 

OPTION..  7. . 2 

OPTION.  •  8 . . . .  .  3 

OPT  I  ON.  .  9 . 0 

OPTION. .10 .  0 

ABSOLUTE  CRITERION  VALUE  (PER  CENT).....  0.0000 
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INITIAL  TIME  VALUE*. . ..........  0.0000 

TIME  INTERVAL*... . 0.1000 

TIME  SUBINTERVAL . . 0.0100 

NUMBER  OF  TIME  INTERVALS . 50 

INITIAL  STATE  VARIABLE..  . . 0.0000 

INITIAL  STATE  VARIABLE..  . .  0.0000 

INITIAL  STATE  VARIABLE..  3 . 0.0000 

DESIRED  OUTPUT/STATE  VARIABLE..  1.......  1 

DESIRED  OUTPUT/STATE  VARIABLE..  2.......  2 

DESIRED  OUTPUT/STATE  VARIABLE..  3 .  3 

DESIRED  OUTPUT/STATE  VARIABLE..  4.......  4 

DESIRED  OUTPUT/STATE  VARIABLE..  5 .  5 

UTILITY  PROGRAM  NUMBER . 0 

NUMBER  OF  JOBS... . 1 

DIST..  1  CODE..  1  1ST  PAR..  1.0000  2ND  PAR.. 


COEFFICIENT  MATRICES  OF  THE  STATE  EQUATION 
AND  RELATED  DATA 


NUMBER  OF  STATE  VARIABLES.... . .  ,  3 

NUMBER  OF  OUTPUT  VARIABLES... . .  5 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS....  1 

NUMBER  OF  TIME  DELAYS .  0 


NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  U(T)  1 

VARIABLE  IN  U(T)....  1.. .DELAY  VALUE....  0.0000 
NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  V ( T  >  1 

VARIABLE  IN  V  <  T ) •  .  .  •  1.. .DELAY  VALUE....  0.0000 

MATRIX  A 

-3.0000  -10.0000  0.0000 

0.0000  0.0000  1.0000 

2.0000  0.0000  -3.0000 

MATRIX  B 

10.0000 


0.0000 


0.0000 
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0.0000 

MATRIX  C 

0.0000  -1.0000  0.0000 

1.0000  0.0000  0.0000 

1.0000  0.0000  -1.0000 

0.0000  1.0000  0.0000 

0.0000  0.0000  1.0000 

MATRIX  D 

1.0000 

0.0000 

0.0000 

0.0000 

0.0000 

COEFFICIENT  OF  POWER...  0  OF  CHAR.  EQUATION .  0.1999E  02 

COEFFICIENT  OF  POWER...  1  OF  CHAR.  EQUATION .  0.S999E  01 

COEFFICIENT  OF  POWER...  2  OF  CHAR.  EQUATION......  0.6000E  01 

COEFFICIENT  OF  POWER...  3  OF  CHAR.  EQUATION .  0.1000E  01 

REAL  PART  OF  EI.V.  -0.4999E  00  IMAG.  PART  OF  EI.V.  0.1936E  01 

REAL  PART  OF  EI.V.  -0.4999E  00  IMAG.  PART  OF  EI.V.  -0.1936E  Cl 

REAL  PART  OF  EI.V.  -0.5000E  01  IMAG.  PART  OF  EI.V.  0.C000E  00 

REAL  PART  OF  SHIFTED  EI.V.  -0.4500E  01  IMAG.  PART.  0.0000E  00 

REAL  PART  OF  SHIFTED  EI.V.  0.0000E  00  IMAG.  PART.  -0.1936E  01 

REAL  PART  OF  SHIFTED  EI.V.  0.0000E  00  IMAG.  PART.  0.1936E  01 

REAL  PART  OF  SMALLEST  EI.V . .  -C.4999E  00 

REAL  PART  OF  ORDERED  EI.V.  -0.4500E  01  IMAG.  PART.  O.OOOCE  00 

REAL  PART  OF  ORDERED  EI.V.  O.OOOOE  00  IMAG.  PART.  Q.1936E  01 

REAL  PART  OF  ORDERED  EI.V.  O.OOOOE  00  IMAG.  PART.  -0.1936E  01 

NUMBER  OF  DISTINCT  El. VS . . .  1 

NUMBER  OF  REPEATED  El. VS . . .  0 

NUMBER  OF  COMPLEX  E  I  •  VS . . . * . .  2 


MATRIX  CC 


‘ 
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0.1000E  01  -0.4999E  01  0.2499E  02 

0.1000E  01  -0.4999E  00  -0.3499E  01 
O.OOOOE  00  0.1936E  01  -C.1936E  01 

TIME.....  0.0000  EXPONENTIAL  OF  E I  .  V (  1). .  0.1000E  01 

TIME.....  0.0000  EXPONENTIAL  OF  EI.V(  2)......  0.1000E  01 

TIME.....  0.0000  EXPONENTIAL  OF  E I . V (  3) .  O.OOOOE  00 

TIME.....  0.0000  COEFFICIENT  A LPHA (  0) .  0.9999E  00 

TIME..*..  0.0000  COEFFICIENT  ALPHA (  1)........  0.4967E-08 

TIME .  0.0000  COEFFICIENT  ALPHA (  2) .  0.4967E“08 

FUNDAMENTAL  MATRIX  AT  T  =  0.0000 

0.9999E  00  0.9934E-07  -0.4967E-07 

0.9934 E- 08  0.9999E  00  -0.9934E-08 

-0.4967E-07  -0.9934E-07  0.9999E  00 

TIME .  0.0100  EXPONENTIAL  OF  E I • V (  1) .  0.9559E  00 

TIME.....  0.0100  EXPONENTIAL  OF  E I . V (  2) . .  0.9998E  00 

TIME.....  0.0100  EXPONENTIAL  OF  E I  .  V (  3)......  0.1936E-01 

TIME .  0.0100  COEFFICIENT  ALPHA (  0) . .  0.1005E  01 

TIME.....  0.0100  COEFFICIENT  ALPHA (  1) .  0.1C04E-01 

TIME.....  0.0100  COEFFICIENT  A L P H A (  2) .  0.4925E-04 

FUNDAMENTAL  MATRIX  AT  T  =  0.0100 

0.9704E  00  -0.9851E-01  -0.4901E-03 
0.9802E-04  0.9999E  CO  0.9851E-C2 

0.1940E-01  -0.9802E-03  C.9704E  00 

TIME .  0.0200  EXPONENTIAL  OF  EI.V(  1) .  0.9139E  00 

TIME .  0.0200  EXPONENTIAL  OF  E I  *  V (  2) .  0.9992E  00 

TIME.....  0.0200  EXPONENTIAL  OF  E I  . V (  3) .  Q.3872E-01 

TIME.....  0.0200  COEFFICIENT  ALPHA (  0) .  0.1010E  01 

TIME.....  0.0200  COEFFICIENT  ALPHA (  1) .  0.2018E-01 

TIME.....  0.0200  COEFFICIENT  ALPHA (  2) . 0.1941E-Q3 


- 


« 


1 
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FUNDAMENT 

AL  MATRIX  AT 

T  = 

0.0200 

0.9417E  00 

-0 . 1941E 

00  -0.1921E 

-02 

0. 3843E-03 

0.9999E 

00  0.1941E 

-01 

0. 3767E-01 

-0.3843E 

-02  0.9417E 

00 

TIME . 

0.0300 

EXPONENTIAL 

OF  El  . 

V  (  1  )..... , 

.  0.8737E  00 

TIME..... 

0.0300 

EXPONENTIAL 

OF  El  . 

V (  2  )•••»» ■ 

.  0.9983E  00 

TIME*.... 

0.0300 

EXPONENTIAL 

OF  El  . 

V(  3  ) . « 

►  0.5806E-01 

TIME . 

0.0300 

COEFFICIENT 

ALPHA ( 

0  ).......  , 

.  0. 1015E  01 

TIME.. .  .  . 

0.0300 

COEFF  IC I  ENT 

ALPHA ( 

1  . . - 

.  0.3041E-01 

TIME. ... . 

0.0300 

COEFFICIENT 

ALPHA ( 

.  0.4302E-03 

FUNDAMENTAL  MATRIX  AT 

T  = 

0.0300 

0.9138E  00 

-0.2868E 

00  -0.4238E 

-02 

0. 8477E-03 

0.9999E 

00  0.2868E 

-01 

0. 5483E-01 

-0.8477E 

-02  0.9138E 

00 

TIME . 

0.0400 

EXPONENTIAL 

OF  El  . 

V(  1  ) . . 

.  0.8352E  00 

TIME..... 

0.0400 

EXPONENTIAL 

OF  El  . 

V(  2  ) . . 

.  0.997CE  CO 

TIME . 

0.0400 

EXPONENTIAL 

OF  El  . 

V  (  3  ) . . 

,  0.7738E-01 

TIME....* 

0.0400 

COEFFICIENT 

ALPHA ( 

0  . . < 

.  0. 1019E  01 

TIME . 

0.0400 

COEFF IC I  ENT 

ALPHA ( 

1  ) . . 

.  0.4071E-01 

TIME . 

0.0400 

COEFFICIENT 

ALPHA ( 

2  ) . . 

.  0.7537E-03 

FUNDAMENTAL  MATRIX  AT  T  =  0.0400 

0.8867E  00  -0.3769E  00  -0.7387E-02 
0.1477E-02  Q.9997E  CO  0.3769E-01 
0.7094E-01  -0.1477E-01  0.8867E  00 


TIME .  0.0500  EXPONENTIAL  OF  EI«V(  1) .  0.7985E  00 

TIME.....  0.0500  EXPONENTIAL  OF  E I  .  V (  2) .  0.9953E  00 

TIME.....  0.0500  EXPONENTIAL  OF  E I • V (  3)......  0.9667E-01 


' 
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TIME .  0.0500  COEFFICIENT  ALPHA (  0) .  0.1024E  01 

TIME*....  0.0500  COEFFICIENT  ALPHA (  1)........  0.5108E-01 

TIME .  0.0500  COEFFICIENT  ALPHA (  2) . 0.1160E-C2 

FUNDAMENTAL  MATRIX  AT  T  =  0.0500 

0.8603E  00  “0.4642E  00  -0.1131E-01 
0.2263E-02  0.9996E  00  0.4642E-01 

0. 8606 E~ 01  -0.2263E-01  0.8603E  00 

TIME.....  0.0600  EXPONENTIAL  OF  E I • V (  1) .  0.7633E  00 

TIME.....  0.0600  EXPONENTIAL  OF  E I • V (  2). .  0.9932E  00 

TIME .  0.0600  EXPONENTIAL  OF  E I . V (  3) .  0.1159E  00 

TIME.....  0.0600  COEFFICIENT  ALPHA (  0)........  0.1029E  01 

TIME .  0.0600  COEFFICIENT  ALPHA!  1)........  0.6151E-01 

TIME.....  0.0600  COEFFICIENT  ALPHA!  2) . 0.1646E“02 

FUNDAMENTAL  MATRIX  AT  T  =  0.0600 

0.8346E  00  ~0.549 OE  00  “0.1597E-01 
0.319  5E~02  0.9993E  00  0.5490E-01 

0 •  100  2  E  00  -0.3195 E“01  0.8346E  00 

TIME.....  0.0700  EXPONENTIAL  OF  EI.V!  1)......  0.7297E  00 

TIME .  0.0700  EXPONENTIAL  OF  EI.V!  2)......  Q.99C8E  00 

TIME.....  0.0700  EXPONENTIAL  OF  EI.V!  3)......  0.1351E  00 

TIME .  0.0700  COEFFICIENT  ALPHA!  0)... .  Q.  1034E  01 

TIME.....  0.0700  COEFFICIENT  ALPHA!  1) . C.7199E-01 

TIME .  0.0700  COEFFICIENT  ALPHA!  2)........  0.2206E-02 

FUNDAMENTAL  MATRIX  AT  T  =  0.0700 

0.8096E  00  “0.6312E  00  -0.2132E-01 
0.4264E-02  0.9989E  00  0.6312E-01 

0.1134E  00  -0.4264E-01  0.8096E  00 


TIME 


0.0800  EXPONENTIAL  OF  EI.V!  1) 


0.6976E  00 


. 
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TIME..... 

0.0800 

EXPONENTIAL 

OF  El  . 

V( 

2  )  . . 

0.9880E 

00 

TIME***** 

0.0800 

EXPONENTIAL 

OF  El  . 

V( 

3  )  .  .  .  «  .  . 

0. 1  543  E 

00 

TIME**  « •* 

0.0800 

COEFFICIENT 

ALPHA ( 

0  ) 

0 . 1039E 

01 

TIME**#  »• 

0.0800 

COEFFICIENT 

ALPHA ( 

1 ) 

0. S252E- 

•01 

TIME***** 

0.0800 

COEFFICIENT 

ALPHA ( 

2  ) 

0. 2842E- 

•02 

FUNDAMENTAL  MATRIX  AT 

T  = 

0 

.0800 

0  •  7  8  5  2  E 

00 

“0.7109E 

00  -0.2730E 

“01 

0. 5461E- 

02 

0.9984E 

00  0.7109E 

“01 

0. 1258E 

00 

“0.5461E 

“01  0.7852E 

00 

TIME. . *  *  * 

0.0900 

EXPONENTIAL 

OF  El  . 

V( 

1  ) . 

0.6669E 

00 

TIME***** 

0.0900 

EXPONENTIAL 

OF  El  . 

V( 

2  )  .  e  o  .  .  . 

0.9848E 

00 

TIME . 

0.0900 

EXPONENTIAL 

OF  El  . 

V( 

3  )•••••  • 

0. 1734E 

00 

TIME . 

0.0900 

COEFFICIENT 

ALPHA ( 

0  ) 

0. 1043E 

01 

TIME . 

0.0900 

COEFFICIENT 

ALPHA ( 

1 ) 

0.9308E- 

•01 

TIME. ...  * 

0.0900 

COEFFICIENT 

ALPHA ( 

2  ) 

0.35 4 4E“ 

•02 

FUNDAMENTAL  MATRIX  AT 

T  = 

0 

.0900 

0. 7613E 

00 

-0.7882E 

00  “0.3388E 

“01 

0.6777E- 

'02 

0.9978E 

00  0.7882E 

“01 

0. 1373E 

00 

-0.6777E 

“01  0.7613E 

00 

TIME . 

0 .1000 

EXPONENTIAL 

OF  El  . 

vt 

1  ).....  . 

0.6376E 

00 

TIME*.*** 

0.1000 

EXPONENTIAL 

OF  El  . 

V( 

2  ) . 

0.9813E 

00 

TIME*.... 

0.1000 

EXPONENTIAL 

OF  El  . 

V( 

3  5 . . 

0. 1924E 

00 

TIME..... 

0 .1000 

COEFFICIENT 

ALPHA ( 

0  ) 

0. 1048  E 

01 

TIME... *• 

0.1000 

COEFFICIENT 

ALPHA ( 

1) 

0. 1036E 

00 

TIME . 

0.1000 

COEFFICIENT 

ALPHA ( 

2  ) 

0.4313E- 

•02 

FUNDAMENTAL  MATRIX  AT 

T  = 

0 

.1000 

0.7381E 

00 

-0.8632E 

00  -0.4102E 

-01 

0  •  8  20  5  E-02  0  •  99 7 1 E  CO  0.8632E-01 

0.1480E  00  -0.82C5E-01  0.7381E  00 


' 
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COEFFICIENT  MATRICES  OF  THE  STATE 
DIFFERENCE  EQUATION 

MATRIX  FM ( T ) 

0.7381E  00  -0.8632E  00  -0.4102E-01 
0.8205E-02  0.9971E  00  0.8632E-01 

0  •  1 4  8  Q  E  00  -0.8205E-01  0.7381E  00 

MATRIX  H(T) 


0.8632E  00 

0.2887E-02 

0.8197E-01 

TIME 

TIME  DOMAIN  RESPONSE 

Y (  1)  Y (  2) 

Y  (  3) 

Y  (  4) 

Y  (  5) 

0.0000 

1.0000 

0.0000 

0.0000 

0.0000 

0 

.0000 

0.1000 

0.9971 

0.8632 

0.7613 

0.0028 

0 

.0819 

0.2000 

C • 9800 

1*4946 

1.2246 

0.0199 

0 

.2700 

0.3000 

0.9416 

1.9383 

1.4373 

0.0583 

0 

.5009 

0.4000 

0.8798 

2.2231 

1.4892 

0.1201 

0 

.7338 

0.5000 

0.7956 

2.3704 

1.4275 

0.2043 

0 

.9429 

0.6000 

0.6925 

2.3979 

1.2858 

0.3074 

1 

.1121 

0.7000 

C.5748 

2.3223 

1.0896 

0.4251 

1 

.2326 

0.8000 

0.4477 

2.1599 

0.8591 

0.5522 

1 

.3007 

0.9000 

0.3163 

1.9275 

0.6109 

0.6836 

1 

.3165 

1.0000 

0.1860 

1.6419 

0.3589 

0.8139 

1 

•  2830 

1.1000 

0.0612 

1.3200 

0.1147 

0.9387 

1 

.2053 

1.2000 

-0.0533 

0.9778 

-0.1122 

1.0538 

1 

.0900 

1.3000 

-0.1553 

0.6306 

-0.3142 

1.1558 

0 

.9448 

1.4000 

-0.2421 

0.2923 

-0.4856 

1.2421 

0 

.7779 

1.5000 

-0.3109 

-0.0250 

-0.6226 

1.3109 

0 

.5975 

1.6000 

-0.3614 

-0.3114 

-0.7232 

1.3614 

0 

.4117 

1.7000 

-0.3934 

-0.5587 

-0.7868 

1.3934 

0 

.2281 

1.8000 

-0.4074 

-0.7613 

-0.8147 

1.4074 

0 

.0533 

1.9000 

-0.4046 

-0.9158 

-0.8089 

1.4046 

-0 

.1068 

2.0000 

-0.3867 

-1.0208 

-0.7731 

1.3867 

-0 

.2477 

2.1000 

-0.3558 

-1.0772 

-0.7113 

1.3558 

-0 

.3658 

2.2000 

—0.31 44 

-1.0872 

-0.6285 

1.3144 

-o 

.4587 

2.3000 

-0.2650 

-1.0551 

-0.5296 

1.2650 

-0 

.5254 

2.4000 

-0.2102 

-C.9860 

-0.4201 

1.2102 

-o 

.  5659 

■ 


' 
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2*5000 

2*6000 

2.7000 

2.6000 

2.9000 
3.0000 

3.1000 

3.2000 

3.3000 

3.4000 

3.5000 

3.6000 

3.7000 

3.8000 

3.9000 
4.0000 

4.1000 

4.2000 

4.3000 

4.4000 

4.5000 

4.6000 

4.7000 

4.8000 

4.9000 

5.0000 


•0. 

•0. 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

•0 

■0 

•0 

•0 

■0 

•0 

*0 


1527 

“0.8860 

-0.3050 

1.1527 

-0.5810 

0948 

“0.7619 

-0.1893 

1.0948 

-0.5726 

0389 

“0.6208 

“0.0774 

1.0389 

-0.5433 

0131 

“0.4694 

0.0267 

0.9860 

-0.4962 

0598 

“0.3147 

0.1200 

0.9401 

-0.4348 

0997 

“0.1628 

0.1999 

0.9002 

-0.3627 

1321 

“0.0191 

0.2646 

0.0678 

-0.2837 

1563 

0.1116 

0.3131 

0.8436 

-0.2015 

1723 

0.2257 

0.3451 

0.8276 

-0.1194 

1803 

0.3203 

0.3610 

0.8196 

“0 . 0407 

1806 

0.3938 

0.3617 

0.8193 

0.0320 

1741 

0.4454 

0.3487 

0.8258 

0.0967 

1616 

0.4752 

0.3236 

0.8383 

0.1515 

1441 

0 . 4  8  4 1 

0.2887 

0.8558 

0.1954 

1229 

0*4739 

0.2462 

0.8770 

0.2276 

0990 

0.4466 

0 .1984 

0.9009 

0.2482 

0736 

0.4C50 

0.1476 

0.9263 

0.2573 

0478 

0.3520 

0.0961 

0.9521 

0.2559 

0227 

0.2907 

0.0453 

0.9772 

0.2448 

0008 

0.2242 

-0.0013 

1.0008 

0.2255 

0221 

0.1555 

-0.0439 

1.0221 

0.1995 

0406 

0.0875 

-0.0808 

1.0406 

0.1684 

0557 

0.0226 

“0.1111 

1.0557 

0.1338 

0673 

-0.0368 

“0.1343 

1.0673 

0.0975 

0753 

-0.0693 

“0.1502 

1.0753 

0.0609 

0796 

-0.1333 

-0.1588 

1.0796 

0.0254 

t. 
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*  JULY  69  * 

*  THIS  IS  EXAMPLE  VI  * 

*  THIS  EXAMPLE  STUDIES  THE  EFFECT  OF  NE-* 

*  6LIGIBLE  TIME  CONSTANTS  ON  THE  FINAL  * 

*  RESPONSE  * 


*  INPUT  DATA  CARDS  * 


0 

** 

0  0 

3  50 

** 

0  0 

1  6  1 

•X--K- 

0  0 

1  8  3 

** 

0  0 

2  1000 

O 

o 

« 

o 

• 

02  0.002  ** 

501 

2.15  4 

.0 

2  0 

1.0  Oc 

0  -1  1.0 

0.01  #* 

3  0 

1.0  0 » 

0  “1  It 

le  ~  1  1.  2® 

4  0 

1  e  0  0  « 

0  -1  1.0 

0.001  ** 

101 

101  4 

1.0  **  1  e  0 

** 

102 

1  1.0 

#* 

103 

2  1.0 

** 

104 

3  IcO 

*-* 

999 

101  1 

1.0  0.0 

*-* 

0  3 

4 

BLOCK  DIAGRAM  INPUT 


INPUT  MATRIX  FLAG . * . .  0 

JOB  NUMBER . . ... . . . .  1 

PRIORITY  NUMBER  FOR  PRINTING  OUTPUT .  3 

LOGICAL  UNIT  NUMBER  FOR  INPUT  DEVICE....  3 

LOGICAL  UNIT  NUMBER  FOR  OUTPUT  DEVICE...  4 

OPTION.®  1 . 0 

OPTION..  2 . 0 

OPTION.  .  3  ....  . . . . ••••••  0 

OPTION..  4 . 2 

OPTION..  5 .  0 

OPTION..  6 . 1 

OPTION*.  7 . 2 

OPTION..  . .  3 

OPTION..  . . 0 

OPT  I  ON*.  . .  0 

ABSOLUTE  CRITERION  VALUE  (PER  CENT).....  0.0000 

INITIAL  TIME  VALUE . .  0.0000 

TIME  INTERVAL . 0.0200 


' 
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TIME  SUBINTERVAL®* *«..••©»©«.*.*..•*».*•  0*0020 

NUMBER  OF  TIME  INTERVALS**.®.*®*. ••»*.{>«  50 

INITIAL  STATE  VARIABLE®*  l**®.**..*..*..  0*0000 

INITIAL  STATE  VARIABLE*©  2«  •  t  «««;•«  m  •  0*0000 

INITIAL  STATE  VARIABLE**  3«*»*©*«»»*e  *  *  *  0*0000 

Initial  state  variable*©  a *•««***•*..*..  o*oooo 

INITIAL  STATE  VARIABLE**  5  . . 0.0000 

DESIRED  OUTPUT/STATE  VARIABLE.*  1  ••••••*  1 

DESIRED  OUTPUT/STATE  VARIABLE. *  2*..*o®.  2 

DESIRED  OUTPUT/STATE  VARIABLE*.  3. ......  3 

DESIRED  OUTPUT/STATE  VARIABLE**  A***.e..  A 

UTILITY  PROGRAM  NUMBER. .©.c***©.*®***®..  0 

NUMBER  OF  JOBS..*** . 1 


D I  ST . .  1  CODE*.  1  1ST  PAR**  1.0000  2ND  PAR.* 


COEFFICIENT  MATRICES  OF  THE  STATE  EQUATION 
AND  RELATED  DATA 


NUMBER  OF  STATE  VAR  I ABLES *  5 

NUMBER  OF  OUTPUT  VARIABLES . .©*..*..  A 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS**..  1 

NUMBER  OF  TIME  DELAYS . * . .  0 


NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  UtT)  1 


VARIA3LE  IN 

U  (  T  )  •  • .  • 

1.. ©DELAY 

VALUE©...  0.0000 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  V ( T  >  1 

VARIABLE  IN 

V  (  T  )  .  •  •  • 

1. . ©DELAY 

VALUE....  0.0000 

MATRIX 

A 

0.0000 

0.0000 

0.0000 

0.0000  -0.5375 

100.0000 

-100.0000 

0.0000 

0.0000  -21A.9999 

0.0000 

0.0000 

0.0000 

1.0000  0.0000 

0.0000 

0.5000 

-0.5000 

-1.5000  0.0000 

0.0000 

0.0000 

1000.0001 

0.0000-1000.0001 

0.0000 


MATRIX  B 


■ 
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0*5375 

214*9999 

0*0000 

0*0000 

0.0000 

MATRIX  C 


0000 

0.0000 

0.0000 

0.0000 

-2.1500 

0000 

1.0000 

0.0000 

0.0000 

0.0000 

0000 

0.0000 

1.0000 

0.0000 

0.0000 

0000 

0.0000 

0.0000 

0.0000 

1.0000 

MATRIX  D 


2.1500 

0.0000 

0.0000 

0.0000 

COEFFICIENT  MATRICES  OF  THE  STATE 
DIFFERENCE  EQUATION 

MATRIX  FM ( T ) 


0.1000E  01 

-0.1621E-06 

-0. 1021E-01 

-0.8847E-04  -0.5375E-03 

0.8647E  00 

0.1354E  00 

-0.1832E  01 

-0 • 2  244E-0 1  -0.3275E-01 

0.3538E-04 

0.5629E-04 

0.1000E  01 

0.1973E-01  -0 . 1 122E-04 

0.5629E-02 

0.4239E-02 

-0.2109E-01 

0.9704E  00  -0.8994E-03 

0.3C17E-04 

0.52 12E-04 

0.9998E  00 

0.1876E-01  0.2  304E-03 

MATRIX  HIT) 


0. 1075E“01 


0.1871E  01 


0. 1205E-01 


0 . 8 1 5  6E“04 

TIME 

0.0000 

TIME  DOMAIN 

Y  (  1) 

2.1500 

RESPONSE 

Y  (  2  ) 

0.0000 

Y  (  3  ) 

0.0000 

Y  (  4) 

0.0000 

0 

*0200 

2.1605 

1.8713 

0.0000 

0.0000 

0 

.0400 

2.1704 

2.1336 

0.0005 

0.0004 

0 

.0600 

2.1794 

2.1772 

0.0013 

0.0013 

0 

.0800 

2.1875 

2.1903 

0.0026 

0.0025 

0 

« 1000 

2.1947 

2.1986 

0.0042 

C.0041 

0 

.1200 

2.2011 

2.2056 

0.0062 

0.0061 

0 

.1400 

2.2067 

2.2116 

0 .0086 

0.0085 

0 

.1600 

2.2115 

2.2167 

0.0114 

0.0112 

0 

.  1800 

2.2155 

2.2211 

0.0145 

0.0143 

0 

.2000 

2.2187 

2.2247 

0.0179 

0.0178 

0 

.2200 

2.2211 

2.2275 

0.0217 

0.0215 

c 

.2400 

2.2228 

2.2296 

0.0259 

0.0256 

0 

.2600 

2.2238 

2.2310 

0.0303 

0.0301 

0 

.2800 

2.2241 

2.2316 

0.0350 

0.0348 

0 

.3000 

2.2237 

2.2316 

0.0400 

0.0398 

0 

.3200 

2.2227 

2.2309 

0*0454 

0.0451 

0 

.3400 

2.2210 

2.2295 

0.0509 

0.0507 

0 

.3600 

2.2186 

2.2275 

0.0568 

0.0565 

0 

.3800 

2.2157 

2.2248 

0.0629 

0.0626 

0 

.4000 

2.2121 

2.2216 

0.0693 

0.0689 

0 

•  4200 

2.2080 

2.2177 

0.0759 

0.0755 

0 

.4400 

2.2033 

2.2133 

0.0827 

0.0624 

0 

.46  00 

2.1981 

2.2083 

0.0897 

0.0894 

0 

.4800 

2.1923 

2.2028 

0.0970 

0.0966 

0 

.5000 

2.1860 

2.1968 

0.1045 

0.1041 

0 

.5200 

2.1792 

2.1902 

0.1121 

0.1118 

0 

.5400 

2.1719 

2.1832 

0.1200 

0.1196 

0 

.  5600 

2.1642 

2.1757 

0.1280 

0.1276 

0 

.5800 

2.1560 

2.1677 

0.1362 

0.1358 

0 

.6000 

2.1473 

2.1593 

0.1446 

0.1442 

0 

.6200 

2.1383 

2.1505 

0.1531 

0.1527 

0 

•  6400 

2.1288 

2.1412 

0.1618 

0.1613 

0 

.6600 

2.1190 

2.1315 

0.1706 

0.1701 

0 

.6800 

2.1088 

2.1215 

0.1795 

0.1790 

0 

.7000 

2.0982 

2.1111 

0 .1885 

0.1881 

0 

.7200 

2.0872 

2.1003 

0.1977 

0.1973 

0 

.7400 

2.0760 

2.0892 

0.2070 

0.2065 

0 

.7600 

2.0644 

2.0778 

0.2164 

0.2159 

0 

.7800 

2.0525 

2.0661 

0.2259 

0.2254 

0 

.8000 

2.0403 

2.0540 

0.2354 

0.2349 

' 

0.8200 
0 .8400 
0.8600 
0.8800 
0.9000 
0.9200 
0.9400 
0.9600 
0.9800 
1.0000 


2.0279 

2.0151 

2.0022 

1.9890 

1.9755 

1.9619 

1.9481 

1.9340 

1.9198 

1.9055 


2.0417 

2.0291 

2.0163 

2.0032 

1.9899 

1.9763 

1.9626 

1.9487 

1.9345 

1.9202 


0.2451 

0.2548 

0.2646 

0.2744 

0.2843 

0.2943 

0.3043 

0.3143 

0.3244 

0.3345 
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0.2446 

0.2543 

0.2641 

0.2739 

0.2839 

0.2938 

0.3038 

0.3138 

0.3239 

0.3340 
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*  JULY  69  * 

*  THIS  IS  EXAMPLE  VII  * 

*  THIS  EXAMPLE  SHOWS  THE  EFFECT  OF  TIME  * 

*  INTERVAL  ON  THE  TIME  DOMAIN  RESPONSE  * 

*  FOR  CAYLEY*"  HA  MILT  ON  TECHNIQUE  AND  POWER  * 

*  SERIES  METHOD. RANGE  OF  DELT  IVESTIGATED  * 

*  IS  0.001  (RIGHT  CHOICE)  TO  0.1  * 

*  INPUT  DATA  CARDS  * 

0 

0  0  5  3  ** 

003  1000  ** 

002  100.  0.0  0.005  0.0005  ** 

0  0  16  1  ** 

0  0  1  8  3  ** 

501  2.15  A . 0  ** 

2  0  1.0  0.0  -1  1.0  0.01  ** 

3  0  1.0  0.0  -1  1.  1.  -I  1.  2.0  ** 

4  0  1.0  0.0  -1  1.0  0.001  ** 

101  101  A  1.0  -1.0  ** 

102  1  1.0  ** 

103  2  1.0  ** 

10 A  3  1.0  ** 

999  101  1  1.0  0.0  ** 

0  3  A  ** 

BLOCK  DIAGRAM  INPUT 

INPUT  MATRIX  FLAG . . . .  0 

JOB  NUMBER*.  . . . . .  1 

PRIORITY  NUMBER  FOR  PRINTING  OUTPUT.....  3 

LOGICAL  UNIT  NUMBER  FOR  INPUT  DEVICE....  3 

LOGICAL  UNIT  NUMBER  FOR  OUTPUT  DEVICE...  A 

OPTION..  1 . . .  0 

OPTION.  .  2  •  •  . . 0 

OPTION..  3 . 0 

OPTION..  A.  .....................  ........  2 

OPTION..  5 . . .  0 

OPTION..  6. . . .  1 

OPTION..  7 . 2 

OPTION..  8 . 3 

OPTION.  .  9 . 0 

OPTION.  .  10  . . 0 


. 


C-39 


ABSOLUTE  CRITERION  VALUE  (PER  CENT) .  0,0000 

INITIAL  TIME  VALUE.*..®®.*...*®®*.*®®.*.  0*0000 

TIME  INTERVAL**®.* ®.®.®o® *..,*,,*. •.*•••  0*0050 

TIME  SUBINTERVAL.®*...®* . . . 0*0005 

NUMBER  OF  TIME  INTERVALS..*®®.*®..**.***  1000 

INITIAL  STATE  VARIABLE®.  1 . 0.0000 

INITIAL  STATE  VARIABLE.®  . . 0.0000 

INITIAL  STATE  VARIABLE®.  3  ...  ®  .........  .  0.0000 

INITIAL  STATE  VARIABLE.®  4*..®o . ....  0.0000 

INITIAL  STATE  VARIABLE*.  . .  0.0000 

DESIRED  OUTPUT/STATE  VARIABLE..  1...®*..  3 

UTILITY  PROGRAM  NUMB ER ............  . .  0 

NUMBER  OF  JOBS............... . 1 


DISTc.  1  CODE..  1  1ST  PAR..  1.0000  2ND  PAR.. 


COEFFICIENT  MATRICES  OF  THE  STATE  EQUATION 
AND  RELATED  DATA 


NUMBER  OF  STATE  VARIABLES........ . .  5 

NUMBER  OF  OUTPUT  VARIABLES . .  4 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS....  1 

NUMBER  OF  TIME  DELAYS.... . . .  0 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  U(T)  1 

VARIABLE  IN  U(T)....  1.. .DELAY  VALUE....  0.0000 

NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN  V(T)  1 

VARIABLE  IN  V(T)....  1.. .DELAY  VALUE....  0.0000 

MATRIX  A 

0.0000  0.0000  0.0000  0.0000  -0.5375 

100.0000  -100.0000  0.0000  0.0000  *214.9999 

0.0000  0.0000  0.0000  1.0000  0.0000 

0.0000  0.5000  -0.5000  -1.5000  0.0000 

0.0000  0.0000  1000.0001  0.0000-1000.0001 


0.0000 


MATRIX  B 


0  4  0 


0.5375 

214.9999 

0.0000 

0.0000 

0.0000 


MATRIX 

C 

0000 

0.0000 

0.0000 

0.0000 

-2.1500 

0000 

1.0000 

0.0000 

0.0000 

0.0000 

0000 

0.0000 

1.0000 

0.0000 

0.0000 

0000 

0.0000 

0.0000 

0.0000 

1.0000 

MATRIX 

D 

2.1500 

0.0000 

0.0000 

0.0000 


COEFFICIENT  MATRICES  OF  THE  STATE 
DIFFERENCE  EQUATION 


MATRIX  FM ( T ) 

0.1000E  01 

-0 . 2  809E-08 

-0. 2  153E-02 

-0.4521E-05  -0 •  5  338E-03 

0.3934E  00 

0.6065E  00 

-0.7030E  00 

-0.1584E-02  -0.1434E  00 

0. 8909E-06 

0.5311  E-05 

0.9999E  00 

0.4981E-02  -0.792  IE-06 

0.5311 E-03 

0. 1959E-02 

-0. 3282E-02 

0.9925E  00  -0.3  503E-03 

0. 5226E-06 

0.3683E-05 

0.9932E  00 

0 • 3  99  3E-02  0.6738E-02 

MATRIX  H ( T ) 

» 

0.2687E-02 


0.8467E  00 


Oe 1990E-05 


0. 1141E-02 
0.1196 E“ 05 


TIME  DOMAIN  RESPONSE 


TIME 

0.0000 

0*0050 

0.0100 

0.0150 

0.0200 

0.0250 

0.0300 

0.0350 

0.0400 

0.0450 

0.0500 

0.0550 

0.0600 

0.0650 

0.0700 

0.0750 

0.0800 

0.0850 

0.0900 

0.0950 

0.1000 

0.1050 

0.1100 

0.1150 

0.1200 

0.1250 

0.1300 

0.1350 

0.1400 

0.1450 

0.1500 

0.1550 

0.1600 

0.1650 

0.1700 

0.1750 

0.1800 

0.1850 

0.1900 

0.1950 

0.2000 


Y  (  3) 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0001 

0.0002 

0.0003 

0.0005 

0.0006 

0.0008 

0.0011 

0.0013 

0.0016 

0.0019 

0.0022 

0.0026 

0.0029 

0.0033 

0.0037 

0.0042 

0.0047 

0.0052 

0.0057 

0.0062 

0.0068 

0.0074 

0.0080 

0.0086 

0.0092 

0.0099 

0.0106 

0.0113 

0.0121 

0.0129 

0.0136 

0.0144 

0.0153 

0.0161 

0.0170 

0.0179 
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System  Documentation 


Figure 

Number 

Title 

Page 

D-l 

Flow  Diagram  by  Links 

D-l 

Table 

Number 

D-l 

FORTRAN  COMMON 

D-6 

D-2 

Disk  Files 

D-7 

D-3 

Use  of  Files 

D-9 

a  xicmaq^A 

HOI1' MOD  HAS  '-'9.  '  •* 

D-l 


comments : 

LASTl  provides  all 
data  for  a  TF+con- 
figuration  input 


MFLAG=matrix  input 
flag 


MREPC=repetition 
counter (=1  means 
first  time  through 
etc. . ) 


LAST2  calculates 
N=number  of  state 
variables 
M=number  of  ouput 
variables 
NF=number  of  ex¬ 
ternal  forcing 
functions 

NEXFG=non  execution 
flag 

NUPOP=utility  pro¬ 
gram  option 
NJOBS=number  of 
jobs 


FIGURE  D-l  Flow  Diagram  by  Links 


. . . continue 


LAST 3  sorts  input 
data  and  provides 
controller  con¬ 
stants 

TF=transfer  func¬ 
tion 


If  the  I/O  device 
is  1816  keyboard 
program  allows 
entry  of 


LAST4  finds  the 
coefficients  of 
the  state  equa¬ 
tion 


LAST5  sets  coeffi¬ 
cients  of  state 
equations  into 
matrices 


LAST6  manipulates 
matrices  to  yield 
the  finalA,B,C,D 


LAST7  manipulates 
matrices  in  spec¬ 
ial  cases  to  yield 
the  final  A,B,C,D, 
IDISC=  disturbance 
counter 


continue 


' 
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WAFl  completes 
the  input  of  data 
for  the  case  of 
"matrix  input" 


WAF2  provides  a 
record  of  input 
data  if  NPRTY  is 
greater  or  equal 
3 


WAF3  provides  the 
eigenvalues  of  co¬ 
efficient  matrix 
A 

NOP  (2) =1 : direct 
integration  of 
state  equations 
by  Runga-Kutta 
(not  implemented) 

NOP ( 3) =1 : power 
series  method  to 
calculate  the 
fundamental  matrix 
0 


N0P(5)=1:  simil¬ 
arity  transforma¬ 
tion  to  calculate 
0  (not  implemented) 


. . . continue 


D-4 


WAF4  checks  the 
eigenvalues  and 
builds  the  matrix 
CC  according  to 
the  Cayley-Hamilton 
technique 


WAF5  calculates 
the  coefficient 
matrices  of  the 
state  difference 
equation  £(T)  and 
H(T)  over  n-1 
time  subintervals 

WAF6  completes 
the  calculation 
of  0(T)  ,H(T) 


WAF7  find  the 
time  domain 
response 

NOP  (8) =2 ,3  provide 
a  plot  on  the 
scope  or  plotter 

NOP (9)  greater 
than  zero  implies 
that  some  change 
is  desired 

NJOBS=number  of 
jobs  to  be  execu-. 
ted 


. continue 


, 
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WAF8  allows  the 
user  to  make 
changes  and  rerun 
the  problem 


WAF10  supplies 
data  to  the 
plotting  routine 


WAF9  plots  vari¬ 
ables  of  interest 
on  the  scope  or 
on  the  plotter 


' 
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TABLE  D- 1 
FORTRAN  COMMON  1  ' 

DIMENSION  IDUMl  (80)  ,RDUM1  (4  5)  , IDUM2  (290)  ,RDUM2  (330)  , IDUM3 (70)  , 
RDUM3  (80)  ,RDUM4  (300)  ,DUM1  (300)  ,DUM2  (225)  ,DUM3  (225)  , 
MBLOK ( 50 ) , RBLOK (40) , RTEMP (300) , IW(10) ,RW(40) ,FM(100) , 

H  (200 )  , I VECT (20)  ,LABX(10)  , LABY ( 10 )  ,IPTNY(10)  ,IDUM9 (21) 


Link 

COMMON 

LAST1 

IDUMl , RDUM1 , IDUM2 , RDUM2 

LAST2 

IDUMl , RDUMl , IDUM2 , RDUM2 

LAST  3 

IDUMl , RDUMl , IDUM2 , RDUM2 , IDUM3 , RDUM3 

LAST  4 

IDUMl , RDUMl , IDUM2 , RDUM2 , IDUM3 , RDUM3 

LAST  5 

IDUMl , RDUMl , IDUM2 , RDUM2 , IDUM3 , RDUM3 , RDUM4 

LAST  6 

IDUMl , RDUMl , MBLOK , RBLOK , DUM1 , DUM2 , DUM3 

LAST  7 

IDUMl , RDUMl , MBLOK , RBLOK , DUMl , DUM2 , DUM3 

WAFl 

IDUMl , RDUMl , MBLOK , RBLOK , RTEMP 

WAF2 

IDUMl , RDUMl , MBLOK , RBLOK , RTEMP 

WAF3 

IDUMl , RDUMl , MBLOK , RBLOK , RTEMP , IW, RW 

WAF4 

IDUMl , RDUMl , MBLOK , RBLOK , RTEMP , IW , RW 

WAF5 

IDUMl , RDUMl , MBLOK , RBLOK , RTEMP , I W , RW , FM , H 

WAF6 

IDUMl , RDUMl , MBLOK , RBLOK , RTEMP , IW , RW , FM , H 

WAF7 

IDUMl , RDUMl , MBLOK , RBLOK , RTEMP , I W , RW , FM , H 

WAF8 

IDUMl , RDUMl , MBLOK , RBLOK , RTEMP , I W , RW, FM , H 

WAF10 

IDUMl , RDUMl , MBLOK , RBLOK , RTEMP , I W , RW , FM , H 

WAF9 

IVECT , LABX , LABY , IPTNY , IRET , IPTAL , IPTCT , KY , ID , IG, 

IU, IP ,KN, IDUM9 , XMAX , XMIN , YMAX , YMIN 

(*)  One  word  integers , single  precision 


•  j  :  /j  ;v;;o' 


DTqi  %  JATqi ,  TSJil ,  YMTqi ,  YSAJ  %  XflAJ  *  TD3VI 

D-7 


TABLE  D-2 


Disk  Files 


File  Definition 

Number  of 

Sectors 

File  Content 

40 (95, 10, U, NEXT) 

3 

input  data  for  reexecution 

51 (100 , 2 , U , NXTl ) 

1 

matrix  A1 

52 (150 , 2 , U , NXT2 ) 

1 

Bl 

53 (100 , 2 , U , NXT3 ) 

1 

Cl 

54  ( 15  0 , 2  , U , NXT4 ) 

1 

F 

55  ( 2  2  5 , 2 , U , NXT5 ) 

2 

G 

56 (150,2 ,U,NXT6) 

1 

H 

57 (225,2 ,U,NXT7) 

2 

AL 

58 (150 ,2 ,U,NXT8) 

1 

AM 

59 (225, 2 ,U,NXT9) 

2 

AL1 

60  ( 15  0 , 2 , U , NXTl 0 ) 

1 

Dl 

61 (100 , 2 , U , NXT11 ) 

1 

El 

62  ( 1 5  0 , 2 , U , NXT 1 2 ) 

1 

D2 

63 (100 ,2 ,U,NXT13) 

1 

E2 

70  (100 , 2  , U , NXT 7  0 ) 

1 

AT 

71 (100 , 2 , U , NXT 71 ) 

1 

BT 

72  (150 , 2 , U , NXT7  2 ) 

1 

CT 

73  ( 1 5  0 , 2  , U , NXT  7  3 ) 

1 

DT 

74 (225,2, U ,NXT74 ) 

2 

AL2 

75  ( 1 5  0 , 2  , U , NXT  7  5 ) 

1 

AM2 

76 (225,2, U ,NXT76 ) 

2 

Q2 

77 (225,2 ,U,NXT77) 

2 

A2 

78 (225, 2 ,U,NXT78) 

2 

C2 

79 (150 , 2 , U ,NXT79 ) 

1 

B2 

80  (150, 2, U, NXT 8  0 ) 

1 

B3 

81 ( 1 5  0 , 2 , U , NXT  8 1 ) 

1 

B4 

. . . continue 


' 
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82  (100 , 2  , U ,NXT82 ) 

1 

B5 

83  (100 , 2  , U , NXT8 3 ) 

1 

WA1 

84  (100 ,2  ,U,NXT84) 

1 

WA2 

85  (100,2 , U,NXT85) 

1 

WA3 

91  (100 , 2  ,  U , NXT9 1 ) 

1 

A 

92  (200,2,U,NXT92) 

2 

B 

93  (150 , 2  ,U,NXT93) 

1 

C 

94  (300 , 2 ,U,NXT94 ) 

2 

D 

96 (1120,2, U,NXT96) 

7 

time  domain  response  data 

99  (160 , 10 ,U,NXT99) 

5 

COMMON  of  Link  WAF10 

100  ( 112 0 , 2 , U , NX10 0 ) 

7 

desired  output  variable  data 

101  (1120 , 2 ,U,NX101) 

7 

independent  variable (time) 

\  ■;  s  o<  /.  , 
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TABLE  D-3 
Use  of  Files 


Link 

File 

Number 

Link 

File 

Number 

Link 

File 

Number 

LAST1 

40 

92 

78 

LAST2 

40 

93 

79 

LAST  3 

— 

94 

80 

LAST  4 

— 

96 

81 

LAST  5 

40 

99 

82 

91 

51 

83 

92 

52 

84 

93 

53 

85 

94 

54 

WAFl  & 

40 

96 

55 

WAF2 

91 

99 

56 

92 

51 

57 

93 

52 

58 

94 

53 

59 

WAF3 

— 

54 

60 

WAF4 

— 

55 

61 

WAF5 

— 

56 

62 

WAF6 

40 

57 

63 

91 

58 

70 

92 

59 

71 

WAF7 

40 

60 

72 

91 

61 

73 

92 

62 

74 

93 

63 

75 

94 

LAST 6  & 

40 

76 

96 

LAST  7 

91 

77 

WAF8 

— 

. e  o continue 
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WAF9 

40 

91 

92 

93 

94 

96 

99 

100 

101 

WAF10 

40 

91 

92 

93 

94 

96 

99 

100 

APPENDIX  E 


Listing  of  Program 


Link 

Page 

LAST1 

E-l 

LAST  2 

E-16 

LAST  3 

E-20 

LAST  4 

E-29 

LAST  5 

E-36 

LAST  6 

E-43 

LAST  7 

E-51 

WAFl 

E-59 

WAF2 

E-64 

WAF3 

E-69 

WAF4 

E-7  4 

WAF5 

E-7  7 

WAF6 

E-81 

WAF7 

E-83 

WAF8 

E-89 

WAF10 

E-9  3 

WAF9 

E-100 

. 


E 


1 


C 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THIS  IS  LINK  1  OF  PART  A 


THE  FOLLOWING  TWO  FLAGS  MUST  BE  IN  COMMON  TO  PROVIDE 
REENTRY  AT 
DIFFERENT  LEVELS. 

IFLG1  IS  SET  IF  AN  ERROR  OCCURS  DURING  EXECUTION  OF 
NEXT  LINK. 

IFLG2  IS  SET  AT  THE  END  OF  THE  PROGRAM  TO  MAKE  ANY 
SORT  OF  CHANGE 

WHEN  THIS  IS  DONE  INPUT  FROM  DISK  FLAG  MUST  BE  SET  TO 
1  (IFDFG)  A 

THE  WHOLE  COMMON  AREA  IS  DESTROYED  . 


EXTERNAL  LAST2.WAF1.WAF3 


C 


DIMENSION  I HV ( 20 ) * NBLKV ( 30 ) . I TFV ( 30) ♦ ICDV(30 ) .NIV( 30  J 

I  .  NRV ( 30 )  . 

I I  V ( 120 ) *RV ( 330 ) 

DIMENSION  I W ( 25 ) » RW ( 50  ) .IALPH(IOO) 

DIMENSION  NY ( 15 )  *  NCODE ( 10 ) *VD1 < 10) *VD2  ( 10  )  >X( 10 ) 

1 » NOP ( 10  ) 

DIMENSION  IDUMK80) 

DIMENSION  RDUM1 (45  ) 

DIMENSION  IDUM2 (290) *RDUM2(330) 

COMMON  IDUM1 .RDUM1 ♦ IDUM2 .RDUM2 

EQUIVALENCE  (  IDUMK1  )  ♦  LUNR )  .(  IDUMK2  )  *LUNP) 

1 ♦ ( IDUM1 ( 3 ) »  LUN  I  ) 

EQUIVALENCE  ( IDUM1 (4) .LUNO) . ( IDUM1 ( 6 ) *M)  .  < IDUM1 (12) 

1  ♦  N  5  ) 

EQUIVALENCE  (  IDUM1 ( 14)  ,NPTS)  . ( IDUM1 ( 15 )  . NPRT Y ) 
EQUIVALENCE  (  IDUM1 ( 16 ) ♦  I  FLG2 )  ♦ ( IDUM1 ( 17 ). IFDFG) 

1  * ( IDUM1 ( 18 ) . JOBNO) 

EQUIVALENCE  (  IDUM1 ( 19 )  .NUPOP)  ♦ (  IDUM1 (20 )  »  I  NO ) 

1 . ( IDUM1 (21 ) ♦ IDISC) 

EQUIVALENCE  (  IDUMK22)  ♦  I  SECT)  .(  IDUMK23)  .  IFLG1) 

1 . (  IDUM1 ( 29 ) *MMAX  ) 

EQUIVALENCE  (  IDUMK30)  .MAXOP)  •(  IDUMK31)  .MAXX) 

1 » ( IDUM1 ( 32 ) *M1 ) 

EQUIVALENCE  ( IDUM1 ( 33 )  . IHMAX)  . ( IDUM1 (34)  .  IVMAX ) 

1 ♦ ( IDUM1 ( 35 ) . IRVMX ) 

EQUIVALENCE  ( I DUM 1(36)  *  I N YFG )  .(  I DUM 1(38)  *IVCT) 
EQUIVALENCE  (  IDUMK39)  .IRVCT)  »(  I  DUM  1(40)  *  I REPC) 

1 ♦ ( IDUM1 (41 ) ♦ N JOBS ) 
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EQUIVALENCE  ( IDUM1 (42 )  .NEXFG )  •  ( IDUM1 (43 ) .MREPC) 
EQUIVALENCE  (  IDUM1 (46 )  * N Y ( 1  )  )  * ( IDUM1 ( 61 )  * NCODE ( 1 ) ) 

I  * (  IDUM1 (71 ) ♦ NOP 

II  )  ) 

EQUIVALENCE  (RDUMl(l) *CRIT) *<RDUM1(2) *TO) .  (RDUMK3) 
1  iDELT ) 

EQUIVALENCE  ( RDUM1 ( 4 ) t  DELTH ) 

EQUIVALENCE  ( RDUM1 ( 11 ) *VD1 ( 1 ) ) 

EQUIVALENCE  (  RDUMl  (  21  )  *VD2(1)  )  *(RDUM1(31>  iXdl) 

EQUIVALENCE  (  IDUM2  (  1  )  •  I H  V  (  1  >  )  .  (  IDUM2  (  21  )  .NBLKV(  1  )  ) 

1 . (  IDUM2 ( 51 ) * ITF 

1  (  1  )  )  .  ( IDUM2 ( 81 ) * ICDV( 1 ) ) * ( IDUM2 (111)*NIV(1)> 

1  * ( IDUM2 ( 141 ) *  NRV ( 1 )  ) * 

2 ( IDUM2 ( 171 ) ♦ I V( 1 ) ) 

EQUIVALENCE  ( RDUM2 ( 1 ) *RV ( 1 ) ) 


C 

C  ONLY  ONE  JOB  CAN  BE  STORED  ON  DISK. IF  MORE  THAN  ONE 

C  ARE  TO  BE  STOR 

C  THEN  EXTRA  FILES  MUST  BE  DEFINED  ALONG  WITH  THE 

C  FOLLOWINF  VECTORS* 

C  IHV.NBLKV.ITFV.ICDV.NIV.NRV.IV.RV.THIS.HOWEVER*  IS  A 

C  HIGHLY  UNLI- 

C  KELY  SITUATION. 

C  SEVERAL  JOBS  CAN  BE  EXECUTED  SEQUENTIALLY  BY  USING  THE 

C  SAME  DISK 

C  FILE  AND  ENTERING  THE  NUMBER  OF  JOBS  AS  SPECIAL  ENTRY 

C  00  N JOBS  ** 

C 

c 

DEFINE  FILE  40 < 95 ♦ 10 .U .NEXT ) 

C 

IF(IFLGl-99)  1.30.1 

1  I  F ( IFLG2-99 )  2.18.2 

2  CONTINUE 

JOBNO= 1 
NPRTY=3 
LUN I  =  5 
LUN0=6 

ABOVE  VALUES  ARE  THE  STANDARD  ONES. IF  ANY  CHANGE  IN 
ANY  OF  THEM  IS 

DESIRED  THE  0  CODE  MAY  BE  USED  AS  O.JOB  NUMBER. NPRTY 
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C 

C  *  LUN  I  * LUNO  * 

C  IN  PARTICULAR  IF  ONLY  LOGICAL  UNIT  NUMBERS  ARE  TO  BE 

C  CHANGED  USE  T 

C  0  CODE  AS  0 • LUN I  *  LUNO  **.THE  FOLLOWING  FFIOR  USES 

C  LUNI  AND  LUNO 

C  AS  DEFINED  ABOVE. 

C  NOTE  THAT  THE  JOB  NUMBER  MUST  BE  A  NON  ZERO  INTEGER. 

C  A  SECOND  AND  THIRD  LOGIC  UNIT  NUMBERS  ARE  EQUATED  TO 

C  THOSE  OF  THE 

C  PRINTER  AND  READER  AND  WILL  NOT  BE  CHANGED. 

C 

LUNP=6 
LUNR=  5 

WR I TE ( LUNP  *4 ) 

4  FORMAT ( 1H1  ) 

NR  =  -1 

CALL  FFIOR ( I W *RW *  I ALPH ♦ N I  * NR . NA * LUNO ♦ LUN  I  ) 

MFLAG= I W ( 1 ) 

NOP ( 1 ) =MFLAG 

MAXOP  IS  THE  MAXIMUM  NUMBER  OF  OPTIONS  SET  TO  10. 

MAXX  IS  THE  MAXIMUM  NUMBER  OF  STATE  VARIABLES  SET  TO 

10. 

MMAX  IS  THE  MAXIMUM  NUMBER  OF  OUTPUT  VARIABLES  SET  TO 
15. 


MMAX= 15 
MAXOP=10 
M AXX= 1 0 
Ml =2*MMAX 
IF(MFLAG)  6.6*10 
6  CONTINUE 

THE  FOLLOWING  CARDS  DEFINE  THE  MAXIMUM  DIMENSIONS  OF 
VECTORS 

IHV.NBLKV* ITFV* I CDV * N I  V *NRV * IV*RV  AND  ARE  THE  ONLY 
ONES  THAT  NEED 

TO  BE  CHANGED  IF  THE  PROBLEM  IS  SCALED  UP. LENGTHS  OF 
IV  AND  RV  ARE 

ESTIMATED  ON  AVERAGE  DIMENSIONS  OF  TRANSFER  FUNCTIONS 

AND  ITS  I/O 

PARAMETERS. 


IHMAX=2Q 
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I VMAX  = 120 
I  RVMX  =  3  30 

ZERO  THE  FOLLOWING  VECTORS  I  HV *NBLKV • I TF V  *  I CDV * N I V »NRV 
» IV 


DO  7  1=1*1 HM AX 
I H V ( I ) =0 

7  CONTINUE 

DO  8  I  =  1  *  Ml 
NBLKV ( I ) =0 
I T  FV (  I ) =0 
I CDV (  I  )  =0 
N I  V ( I  ) =0 
NR V ( I ) =0 

8  CONTINUE 

DO  9  1  =  1 »  IVMAX 
I V (  I  ) =0 

9  CONTINUE 


THIS  PART  INITIALIZES  ALL  SPECIAL  ENTRIES  IN  ORDER  TO 
PROVIDE 

A  • *  STANDARD1 •  SOLUTION  OF  THE  PROBLEM. (SEE  TABLE  OF 
OPTIONS) . 


INITIALIZE  VECTOR  OF  OPTION. 


10  CONTINUE 

DO  13  1=2  »MAXOP 
NOP ( I )=0 
13  CONTINUE 
NOP ( 4 ) =2 
NOP ( 7 ) =2 
NOP ( 8 ) =1 

INITIALIZE  CRIT.TO.DELT  *DELTH*NPTS. 


CR  I  T=  3 • 

T0=0 • 0 
DELT=0 . 1 
DELTH=0.01 
NPTS= 10 

INITIALIZE  STATE  VARIABLE  VECTOR. 


DO  14  I  =  1 » MAXX 
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14 


X( I )=0.Q 
CONTINUE 

SET  UTIL 


TV  PROGRAM  OPTION  TO  ZERO. 


NUPOP=0 

SET  NUMBER  OF  JOBS  EQUAL  TO  ONE. 


E-  5 


N JOBS= 1 

SET  REPETITION  COUNTER  FOR  MATRIX  INPUT  TO  ZERO. 


MREPC=0 

ZERO  DISTURBANCE  INPUT  COUNTER. IF  IDISC  IS  GREATER 
THAN  1  THE  PRO 

ASSUMES  THAT  THE  USER  WHISHES  TO  CONTINUE  TO  PART  B  OF 
THE  PROGRAM 

AS  THIS  TYPE  OF  INPUT  IS  ONLY  NEEDED  IN  PART  B. 


I D I SC=0 

SET  FLAG  FOR  SPECIAL  NY  ENTRIES  TO  ZERO. 


I NYFG=0 

IF(MFLAG)  15  » 15  *  35 
15  CONTINUE 

ZERO  INPUT  FROM  DISK  FLAG 


I  FDFG  =  0 

ZERO  OUTPUT  VARIABLE  COUNTER. 

M  =  0 

SET  INITIAL  VALUE  COUNTERS  OUTSIDE  THE  LOOP  AROUNF 

FFINP  AND  AHEAD 

OF  THE  REENTRY  STATEMENTS. 


I  NO=  1 
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I  VCT  =  0 
I RVCT  =  0 
I  REPC  =  0 

18  CONTINUE 

RESET  REENTRY  FLAG  TO  ZERO. 


IFLG2=0 

DECIDE  WHETHER  DATA  MUST  BE  READ  FROM  DISK  OR  IS 
INPUTTED  NOW. 


I F ( I FDFG ) 3 1  ♦  3 1  *  20 
20  K=  1 

RE AD ( 40 ‘K)  IHV.NBLKV. ITFV. I CDV ♦  N  I V  *  NRV  » IV.RV 
NEXT  OPERATOR  ENTRY  WILL  BE  999.0  **. 


30  CONTINUE 


RESET  REENTRY  FLAG  TO  ZERO 


I FLG1=0 
31  CONTINUE 

35  NR=-1 

CALL  FFIOR ( IW.RW* IALPH.NI *  NR  * NA * LUNO f LUN I ) 
START  ANALYZING  THE  TYPE  OF  INPUT. 


NBK= I W ( 1 ) 

IF(NBK)  50.50.40 
40  I  F ( NBK-999 )  60.300.300 

FIND  OUT  IF  IT  IS  A  SPECIAL  INPUT.  CODE  NUMBERS  ARE  0 

.0  • 


50  I  F (  I W ( 2 )  )  400.400.51 


IT  IS  A  'O'  INPUT. 


51  CONTINUE 
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C 

IF(NI-3)  55*55*52 

IT  IS  THE  FIRST  ’O'  INPUT* 

STORE  INPUT  DATA  IN  PROPER  LOCAT I  ON . F I RST  THE  JOB 
NUMBER. 


52  I HV ( 1 )  =  I W ( 2 ) 

JOBNOs I W ( 2 ) 

ADD  INTO  I HV  VECTOR  THE  FOLLOWING  DATA  TO  BE 
ASSOCIATED  WITH 

ITS  DISK  FILE  $  FILE  NO**SECTOR  COUNT*8  ADDRESSES  FOR 
THE  FOLLOWIN 

VECTORS  $  IHV*NBLKV* ITFV* I CDV *N I  V ♦ NRV . IV»RV. 


IHV( 2  >=40 
I HV ( 3 )  =3 
I HV ( 4 ) = 1 
I  HV ( 5 ) =  2 1 
I HV ( 6 ) s  5 1 
I  HV ( 7 ) =  8 1 
I H  V  (  8  )  =  1 1 1 
I HV ( 9 ) = 14 1 
IHV ( 10 ) *  171 
I  HV  (11)  -=291 

ABOVE  DATA  TO  BE  REPEATED  FOR  EACH  SEPARATE  DISK  FILE. 


NPRTY=IW( 3) 

LUNI= IW (4 ) 

LUNO= IW ( 5 ) 

GO  TO  35 

IT  IS  A  SECOND  OR  SUCCESSIVE  'O'  ENTRY. 


55  LUN I = I W ( 2 ) 
LUNO= IW ( 3 ) 
GO  TO  35 
60  CONTINUE 


TO  DECIDE  WHETHER  IT  IS  A 
AN  EXISTING 

ONE  THE  TRANSFER  FUNCTION 
FOR  EXAMPLE  3*203*603  ... 


NEW  ENTRY  OR  A  CORRECTION  OF 

ID  'S  MUST  BE  COMPARED 
ALL  MEAN  THE  SAME  TF  G(3). 
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NCD  =  0 
NB=NBK 

61  IF(NB-IOO)  65*65*62 

62  NCD=NCD+ 1 
NB=NB-100 
GO  TO  61 

NB  IS  THE  INPUT  ID. 

NCD  IS  THE  INPUT  CODE  NUMBER. 

JUMP  THE  COMPARISON  THE  FIRST  TIME  THROUGH 


65  I F ( I  NO-1 )  150*150*70 

DISTINGUISH  BETWEEN  A  TRANSFER  FUNCTION  AND  AN  I/O 
DATA  SET 


70  IN01= INO-  1 


I  F  ( 

NCD-1  ) 

71*75.71 

IT 

IS  A  T 

•  F. 

71 

DO 

73  J*1 

*  INOl 

IF  ( 

I  TFV ( J 

)-NB)  73.81*73 

73 

CONTINUE 

RESET  REPETITION  COUNTER  TO  ZERO. 


I REPC=0 
GO  TO  140 

IT  IS  AN  I/O  DATA  SET 


75  DO  76  J  - 1  * IN 01 

I F ! NBLKV ( J  )  -NBK )  76*81*76 

76  CONTINUE 

IT  IS  A  NEW  I/O  ENTRY. 

CHECK  FOR  SPACE  IN  NBLKV  VECTOR. 


I F  < I  NO-MI )  80*80  *77 

77  WRITE! LUNO  *  7  8 ) 

78  FORMAT ( 1H  .'TOO  MANY  VALUES  IN  VECTOR  NBKLV ' ) 
CALL  EXIT 

80  NBLKV  UNO  )  =NBK 
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GO  TO  190 

IT  IS  NOT  A  NEW  T.F.  ENTRY. 

CHECK  IF  BOTH  NUMBER  OF  INTEGERS  AND  REAL  VALUES 
COINCIDE. 


81  IF(NCD-l)  810*810.808 
808  I F ( N I  V ( JJ-NI )  100.82.100 
810  I F  <  N I  V ( JJ-NI  +  l)  100.82.100 

82  I F ( NR V ( J ) -NR )  100.83.100 

FIND  ADDRESSES  OF  OLD  ENTRIES  IN  IV  AND  RV. 


83  I T  EM=0 
I TEM1 =0 
Jl=J-l 

JUMP  THE  SUMMING  STATION  IF  J  IS  ONE. 


IF(J1)  88.88.85 

85  DO  86  KK= 1 » J1 
ITEM=ITEM+NIV<KK) 

ITEM1* ITEMl+NRVUK  ) 

86  CONTINUE 

BYPASS  THIS  ENTRY  IF  N I = 1 . 


88  IF(NI-l)  93.93*90 
90  KK1=NI-1 

ENTER  NEW  VALUES  ON  TOP  OF  THE  OLD  ONES. 


DO  91  KK= 1 . KK 1 
J 1 s I T  EM  +  KK 
IV( J1 )=IW(KK+1 ) 

91  CONTINUE 

BYPASS  THIS  ENTRY  IF  NR  IS  ZERO. 


93  IF(NR)  99.99.95 

95  DO  96  KK=1.NR 
J1=ITEM1+KK 
RV ( Jl ) =RW ( KK ) 

96  CONTINUE 
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C  WRITE  CODE  NO.  AND  BLOCK  NO.  ON  TOP  OF  THE  OLD  ONES. 

C 

99  NBLKV ( J ) =NBK 
I  CDV ( J ) =NCD 
GO  TO  35 

STEP  REPETITION  COUNTER. 


100  I  REPC= I REPC  +  1 

ZERO  OLD  ENTRIES. 


NBLKV< J)*0 
I  TFV ( J  )  K0 
I CDV ( J  )  =0 

ZERO  OLD  ENTRIES  IN  IV  VECTOR 


IF(J-l)  120.120.130 
120  IV(J)=0 
GO  TO  140 
130  I SUM=0 
Jl=J-l 

DO  132  I  =  1 » J 1 
I  SUM=  I  SUM  +  N  I  V  (  I  ) 

132  CONTINUE 

J 1  =  I SUM+N I V ( J ) 

I SUM= I SUM+1 
DO  135  I = I  SUM  » J 1 
I V (  I  ) =0 
135  CONTINUE 

IT  IS  A  NEW  T.F. 


140  IFUNO-M1)  150.150.77 
150  NBLKV ( I N 0 ) =  N B K 

I F ( NCD-1 )  155.190.155 
155  I TFV ( I  NO ) =NB 
I CDV ( I  NO  )  =NCD 
IF(NCD)  180.180.160 

THESE  ARE  SPECIAL  ENTRIES  INTO  IV  VECTOR  TO  ALLOW  N  TO 

BE  CORRECTL 

CALCULATED. 
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160  GO  TO  (190*165*170*175*165*170*176*176) *NCD 

165  N I =N I +1 
I W ( N I ) =“1 
GO  TO  180 
170  N I =N I +1 
I W ( N I ) =~2 
GO  TO  180 

175  NI=NI+1 

I W ( N I  1*0 
GO  TO  180 

176  WR I TE ( LUNO  *177)  NB 

177  FORMAT (1H  * ' I LLEGAL  CODE  NUMBER  IN  T.F.'*I5/) 

180  IF(IREPC)  185*185*190 

185  M=M+1 
190  CONTINUE 

STORE  NI *  NR  ♦ I W  *  RW  VALUES  IN  THEIR  RESPECTIVE  VECTORS. 


N I  V ( I  NO ) aN 1*1 
NR V ( I  NO ) =NR 

BYPASS  THIS  ENTRY  IF  NI=1. 


IF(NI-l)  215*215*199 

FIND  UPPER  POSITION  OF  NEW  ENTRY  AND  CHECK  IT  AGAINST 
IVMAX  * IRVMX. 


199  J1=IVCT+NI-1 
IF(Jl-IVMAX)  205*205*200 

200  WRITE ( LUN0*201 ) 

201  FORMAT ( 1H  * • TOO  MANY  VALUES  IN  IV  VECTOR'/) 
CALL  EXIT 

205  I VCT1= I VCT+1 

DO  210  J= I VCT 1 ♦ J 1 

J2=J-IVCT-H 

IV( J)=IW( J2) 

210  CONTINUE 

UPDATE  IV  COUNTER 


I VCT= J1 
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215  CONTINUE 

BYPASS  THIS  ENTRY  IF  NR  IS  ZERO. 


IF(NR)  235*235*216 
216  J 1 = I RVCT+NR 

IF(Jl-IRVMX)  227*227*225 

225  WRITE (LUN0*226) 

226  FORMAT (1H  *  '  TOO  MANY  VALUES  IN  RV  VECTOR'/) 
CALL  EXIT 

227  I RVC 1=1 RVCT  +  1 

DO  230  J=  IRVCl*Jl 
J2=  J- I RVCT 
RV ( J ) =R W ( J2 ) 

230  CONTINUE 

UPDATE  RV  COUNTER. 


I R VCT= Jl 

STEP  INPUT  COUNTER. 


235  I NO= I NO+ 1 
GO  TO  35 

300  CONTINUE 

DECIDE  WHETHER  IT  IS  A  DISTURBANCE  INPUT  OR  THE  LAST 
INPUT. 


IF(NR)  500*500*310 

IT  IS  A  DISTURBANCE  INPUT. STEP  DISTURBANCE  INPUT 
COUNTER. 


310  IDISC= IDISC+1 

SET  VALUES  INTO  PROPER  VECTORS. 


J=  I W ( 2 ) -100 
NCODE ( J ) ® I W ( 3 ) 
VD 1  ( J  )  =RW { 1 ) 
VD2 ( J ) =RW ( 2 ) 

GO  TO  35 
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400  CONTINUE 

C  SPECIAL  ENTRIES  ARE  GIVEN  WITH  CODE  0*0  ID  NUMBER  1 

C  TO  7  AS  SHOWN 

C  BELOW. FOR  EX.  A  NEW  OPTION  IS  ENTERED  AS  0  0  1  8  3  ** 

C 

C 

C  1  VECTOR  OF  OPTIONS. 

C  2  CRIT*T0»DELT*DELTH. 

C  3  NPTS. 

C  4  INITIAL  STATE  VECTOR  X(O). 

C  5  VECTOR  OF  OUTPUT  OR  STATE  VARIABLES  NY  TO  BE  DEALT 

C  WITH  IN  THE 

C  TIME  DOMAIN  SOLUTION. 

C  6  UTILITY  PROGRAM  OPTION. 

C  7  NUMBER  OF  JOBS  TO  BE  EXECUTED. 

C  8  VACANT. 

C 

ISECT=IW(3) 

GO  TO (4 10 .463.46 9 *472 *47 5.480 *485.490)  *  I  SECT 

410  IFINI-3)  35*35*415 
415  DO  462  K  =  4  *N I *2 
KK= I W ( K ) 

GO  TO (420* 42 5*430*435*440  * 445*450*455* 460* 46 1>*KK 
420  NOP ( 1 ) = I W ( K+ 1 ) 

GO  TO  462 

425  NOP ( 2 ) = I W ( K+l ) 

GO  TO  462 

430  NOP ( 3 ) = I W ( K+ 1 ) 

GO  TO  462 

435  NOP ( 4 ) = I W ( K+l ) 

GO  TO  462 

440  NOP ( 5 ) s I W ( K+l ) 

GO  TO  462 

445  NOP ( 6 ) -  I W ( K+l ) 

GO  TO  462 

450  NOP ( 7 ) = I W ( K+l ) 

GO  TO  462 

455  NOP ( 8 ) -  I W ( K  +  l ) 

GO  TO  462 

460  NOP ( 9  )  =  I  W ( K  + 1 ) 

GO  TO  462 

461  NOP (  10 )  =  I W ( K+l ) 

462  CONTINUE 
GO  TO  35 
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4  b  3  IFINR)  35*35*  464 

4b4  CR I T  =  RW I  1 ) 

TO  =  RW I  2 ) 

DELT  =  RW I  3 ) 

DELTH=R W ( 4 ) 

GO  TO  35 

469  IF(Nl-3)  35*35*470 

470  NPTS- I W ( 4 ) 

GO  TO  35 

472  IF(NR)  35*35*473 

473  DO  474  I=1*NR 
X(  I  )=RW(  I  ) 

474  CONTINUE 
GO  TO  35 

475  IFINI-3)  35*35*476 

476  DO  477  I=4*NI 
NY( 1-3 )=IW( I ) 

477  CONTINUE 
N5  =  N I “3 

I  N YFG= I NYFG  +  1 
GO  TO  35 

480  IFINI-3)  35*35*481 

481  NUPOP= I W ( 4 ) 

GO  TO  35 

485  IFINI-3)  35*35*486 

486  NJ0BS=IW(4) 

GO  TO  35 

490  WRITE! LUNO  *491) 

491  FORMAT  I 1H  *  ' ILLEGAL  SPECIAL  ENTRY'/) 
GO  TO  35 


500  I NO= I NO“l 

LAST  ENTRY  GIVES  999  FOR  COMPLITION  PLUS  A  NON 
EXECUTION  VALUE 

OF  0  FOR  EXECUTION  AND  1  FOR  TERM  I  NAT  I  ON • FOR  EX*. 999*0 
**  » OR  999  *1 


NEXFG= I W I  2 ) 

C  DECIDE  WHETHER  IT  IS  A  MATRIX  INPUT. 
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IF ( MFLAG )  510*510*600 
510  CALL  L INK  (LAST2) 

STEP  MATRIX  INPUT  COUNTER* 

600  MREPC  SMREPC  +  1 

IF  IT  IS  A  REPETITION  OR  CHANGE  JUMP  TO  WAF3 • 

IF(MREPC-l)  610*610.650 
610  CALL  LINK  (WAF1) 

650  CALL  L I NK ( WAF2 ) 

END 
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THIS  IS  LINK  2  OF  PART  A 


EXTERNAL  LAST  1 »  L AST3 

DIMENSION  IHV(20)  *NBLKV(30)  ♦  I T FV ( 30 )  *  I  CD V ( 30 ) * N I  V ( 30 ) 
1 » NRV ( 30 )  ♦ 

1  I  V ( 1 20  )  *  R V ( 3  30 ) 

DIMENSION  NY ( 15 )  *NCODE (10) *  VD 1 (10)  »VD2 ( 10  )  tX( 10  > 

1 *NOP( 10  ) 

DIMENSION  I AUX (10) 

DIMENSION  IDUMK80) 

DIMENSION  RDUMK45) 

DIMENSION  IDUM2 ( 290 ) *RDUM2 ( 330 ) 

COMMON  I DUM1 • RDUM1 » I DUM2  *  RDUM2 

EQUIVALENCE  ( IDUM1 ( 2 ) *LUNP) * ( IDUM1( 15)  .NPRTY) 

1  .  (  IDUM1 (39 ) ♦ IRVCT ) 

EQUIVALENCE  (  IDUMK4)  »LUNO)  *(  IDUMK5)  *N)  »(  I  DUM  1(6) 

1  *M) 

EQUIVALENCE  ( IDUM1 ( 7)  »NF )  ♦ ( IDUMl ( 12 )  *N5  )  ♦  l  IDUMl (14) 

1 *NPTS ) 

EQUIVALENCE  (  IDUMl ( 19 ) *NUPOP)  » ( IDUMl (20 )  *  I  NO ) 

1  ♦  (  IDUMl ( 21 ) » IDISC ) 

EQUIVALENCE  < I DUM1 ( 18 ) . JOBNO ) 

EQUIVALENCE  ( I DUM 1 ( 30 ) *MAXOP ) * 

1  (  IDUMl (32)*M1) 

EQUIVALENCE  (  IDUMl (33)  *IHMAX)  * (  IDUMl (34)  *IVMAX) 

1  * (  IDUMl (35 ) * IRVMX ) 

EQUIVALENCE  ( I DUM 1 ( 36 )  *  I N YFG )  * 

1  (  IDUMl ( 38  )* IVCT ) 

EQUIVALENCE  (  IDUMl (41 ) »NJOBS)  * ( IDUMl (42 )  *  NEXFG ) 
EQUIVALENCE  ( IDUMl (46 ) *NY( 1 ) ) » ( IDUMl (61 ) »NCODE( 1 ) ) 

I  ♦  (  IDUMl (71 ) *  NOP 

II  )  ) 

EQUIVALENCE  (RDUMl(l) *CRIT) *(RDUM1(2) »TQ) t ( RDUM1 ( 3 ) 

1  *  DELT ) 

EQUIVALENCE  ( RDUM 1(4) *  DEL  TH ) 

EQUIVALENCE  ( RDUM1 (11) » VD1 ( 1 ) ) 

EQUIVALENCE  (RDUMl (21 )  *VD2 ( 1 )  )  * ( RDUM1 ( 31  )  »X(  1 )  ) 

EQUIVALENCE  ( IDUM2( 1) *IHV( 1 ) ) * ( IDUM2(21 ) ♦ NBLKV ( 1 ) ) 

1  ♦  (  IDUM2 (51 ) * ITF 

1  (  1  )  )  *  ( IDUM2 ( 81 ) ♦ I CDV ( 1 )  )  * ( IDUM2 (111) *NIV<1) ) 

1  ♦  (  IDUM2 ( 141 ) ♦ NR V ( 1 )  ) * 

2 ( IDUM2 ( 171 ) ♦ I V ( 1 )  ) 
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EQUIVALENCE  ( RDUM2 (  1  )  ♦  R  V  <  1  )  ) 
DEFINE  FILE  40 ( 95  * 10.U.NEXT ) 


WRITE (LUN0.101 )  JOBNO 

101  FORMAT (1H  ♦•END  OF  INPUT  DATA  FOR  JOB  NUMBER  *  *15/) 

C  IF  INYFG  IS  STILL  ZERO  SET  NY  EQUAL  TO  Y  AND  N5  TO  M. 

IF(INYFG)  202  *202  ♦ 204 

202  N5=M 

DO  203  1=1 fM 
NY< I ) -I 

203  CONTINUE 

IN  ADDITION  TO  M  FIND  N ♦ NF 
DETERMINE  N. 


204  N  =  0 

DO  210  J= 1 » I VCT 
I  F ( I V ( J ) )  205*210*210 

205  N=N+IABS< I V ( J ) ) 

210  CONTINUE 

DETERMINE  NF 


NF  =  0 

DO  230  J=1 ♦ IVCT 
I  TEM= I ABS ( I V  <  J )  ) -100 
I  F (  ITEM)  230*230  *220 
220  NF=NF+1 

I AUX ( NF ) = I TEM 
230  CONTINUE 

COMPARE  VALUES  IN  IAUX  FOR  DUPLICATES. 


J 1 =NF-1 

IF(J1)  300.300.280 
280  DO  290  KK= 1 ♦ J 1 
DO  285  J=KK*J1 

I F ( IAUX (KK)-IAUX ( J+l ) )  285.282.285 
282  NF=NF-1 
285  CONTINUE 
290  CONTINUE 
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300  CONTINUE 

WRITE  THE  ENTIRE  FILE  ON  DISK. 


K=  1 

WRITE  <40 • K  )  ( I HV (  I )  .  1=1 ♦ IHMAX )  . ( NBLKV ( I  )  ♦  1  =  1 .Ml ) 

1  .  (  I TF V ( I  )  •  1  =  1  .Ml  )  . 

1  I CDV ( I ) *I  =  1*M1)  . (  N I V  ( I  ) *  I  =  1 » Ml ) *  ( NRV ( I  )  *  1  =  1  .Ml ) . 
1*1=1. IVMAX) 

2  (  R  V  ( I  5  .1  =  1.1  RVMX ) 


IF(IO-NPRTY)  340.340.395 
340  CONTINUE 

READ (40 ' 1 )  IHV.NBLKV. ITFV. ICDV.NI V.NRV. IV.RV 
WR  I  TE ( LUNP  » 345 )  M.N.NF 

345  FORMAT ( 1H  .'M  ='.15.5X*'N  =,.I5.5X.'NF  =  •  .  I  5 . 5X ) 
WRITE (LUNP .351 )  (  I  HV ( I ) *  1  =  1 » IHMAX ) 

351  FORMAT ( 1H0. 'HEAD  VECTOR • / (  I  5 )  ) 

WRITE (LUNP  .352 )  ( NBLKV ( I  )  .ITFV( I ) *ICDV( I).NIV(I) 

1 *NRV(  I)  .  1  =  1  ♦  INO) 

352  FORMAT( 1H0. 'NBLKV  ITFV  ICDV  NIV  NRV'//(5I5)) 

WR  I  TE ( LUNP  .353)  ( I V ( I ) ♦ I  =  1 . I VCT ) 

353  FORMAT ( 1H0 ♦ 'VECTOR  I V  * / ( 5  I  5 )  ) 

WRITE (LUNP.  3 54)  (RV(I ) .I  =  1»IRVCT) 

354  FORMAT ( 1H0  * • VECTOR  RV • / ( 5 E 1 5 . 6 )  ) 

IF(IDISC)  395.395.3555 
3555  CONTINUE 

WRITE (LUNP.  3 55)  (NOP( I ) *I  =  1.MAX0P) 

355  FORMAT ( 1H0.50X. ' NOP* /10I  10 ) 

WRITE (LUNP.  356)  NPRTY.NPTS.N5 .CR I T . TO . DELT . DELTH 

356  FORMAT (1H0»9X.'NPRTY* .I5/10X. '  NPTS ' *  I  5/ 10X . ' 
1/10X.'  CRIT 

1.E15.6/10X*'  TO'  .E15.6/10X. •  DELT '  .E 15 . 6/10X ♦ • 
1 .E15.6  ) 

WR I TE ( LUNP ♦ 357 )  (X(I).I=1.N) 

357  FORMAT ( 1H0.50X. ' X* /10E12.4) 

WRITE (LUNP.  358)  ( NCODE  (  I  )  ♦ I  =  1  *  NF ) 

35  8  FORMAT  (  1H0.50X.  'NCODE'  /10U0) 

WR  I  TE ( LUNP  *359 )  ( VD1 ( I ) » I  =  1 »NF ) 

359  FORMAT ( 1H0.5CX»'VD1'/10E12.4) 

WR  I  TE ( LUNP . 360 )  (VD2( I  )  .  I  =  1  .  NF ) 

360  FORMAT ( 1H0.50X . ' VD2 ' /10E12.4) 

WRITE ( LUNP. 361 )  ( NY ( I )  »  I  =  1  * N5 ) 
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361  FORMAT ( 1H0*50X* ' NY  * /15 I  5 ) 

WR I TE ( LUNP  * 362  )  NUPOP*NJOBS 

362  FORMAT ( 1H0 *9X * ' NUPOP ' *I5/10X* 1 N JOBS ' *15/) 

395  CONTINUE 


CHECK  IF  FLAG  FOR  EXECUTION  IS  ON. 


IF(NEXFG)  1450*1450*1400 

1400  WRITE(LUNO*1401 ) 

1401  FORMAT ( 1H  * • NO  EXECUTION  DESIRED1/) 

IF(NUPOP)  1405*1405*1403 

1403  I F ( NUPOP-9  )  1410*1410*1450 

1405  WRITE ( LUNO*1406 ) 

1406  FORMAT (1H  *'NO  UTILITY  PROGRAM  DESIRED*/) 

NJOBS=NJOBS-l 
I F { N JOBS )  1407*1407*1408 

1407  CALL  EXIT 

1408  CALL  LINK! LAST  1 ) 

1410  CONTINUE 

A  GO  TO  STATEMENT  WILL  BE  INSERTED  HERE  TO 

BRANCH  TO  SEVERAL  UTILITY  PROGRAMS  ACCORDING  TO  NUPOP 

VALUES  FROM  1  TO  9. 


WRITE ( LUNO* 1420 ) 

1420  FORMAT (1H  FUTILITY  PROGRAM  NOT  IMPLEMENTED'/) 
CALL  EXIT 

1450  CALL  LINK! LAST3 ) 

END 
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THIS  IS  LINK  3  OF  PART  A 


EXTERNAL  LAST  1  *  LAST4 


DIMENSION  NBLKV ( 30 ) *ITFV( 30) »ICDV(30) *NIV(30) *NRV(30) 
1  *  I  V ( 120 )  > 

1RV ( 330  ) 

DIMENSION  I  WO (21) *RWO(42 )  *  I IOV ( 11 ) «R IOV ( 10 ) 

DIMENSION  I W  V ( 21 ) *  RWV ( 42 )  *  TD ( 5  ) 

DIMENSION  WCC ( 60 ) 


DIMENSION  IDUMK80) 

DIMENSION  RDUMK45) 

DIMENSION  IDUM2 ( 290 ) *RDUM2 ( 330) 
DIMENSION  IDUM3 ( 70 ) »RDUM3 ( 80 ) 


COMMON  IDUM1 *RDUM1* IDUM2*RDUM2 *  I DUM3  *  RDUM3 

EQUIVALENCE  ( IDUM1 ( 1 )  *  LUNR ) ♦ ( IDUM1 ( 2 ) *LUNP) 

1 » ( IDUM1 ( 3 )  *  LUN I ) 

EQUIVALENCE  ( IDUM1 (4) »LUNQ) . ( IDUM1 ( 13) *NTD) * ( IDUM1 ( 15 ) 
1 *NPRT Y  ) 

EQUIVALENCE  <  IDUM1 (20)  » I  NO ) » ( IDUM1 ( 23)  *IFLG1 ) 
EQUIVALENCE  ( IDUM1 ( 24 ) * NFLG1 ) # ( IDUM1 (25 )  #  NFLG2 ) 

1  * (  IDUM1 ( 26  )  ♦ NFLG3  ) 

EQUIVALENCE  ( RDUM1 ( 6 ) *  TD (  1  )  ) 

EQUIVALENCE  ( IDUM2 ( 21 ) » NBLKV ( 1 )  )  * ( IDUM2 ( 51  )  * ITFV(  1  )  ) 
EQUIVALENCE  < IDUM2 ( 81 )  ♦  ICDV( 1  )  )  ♦ (  IDUM2 ( 1 1 1  >  ♦  N I  V l 1 )  ) 
EQUIVALENCE  ( IDUM2 ( 141 ) *NRV( 1  )  )  * (  IDUM2 (171)  *IV(1)  ) 

EQUIVALENCE  ( RDUM2 ( 1 ) *  R V ( 1 )  ) 

EQUIVALENCE  ( IDUM3(1)  *  I  I OV ( 1 )  ) * ( IDUM3( 12)  tIDER) 

1  * (  IDUM3 ( 13 ) ♦ IPASS) 

1 ( IDUM3 ( 14 )  »  IDDAC  )  •  ( IDUM3 ( 15 ) * IDNAC) # ( IDUM3 ( 16) * IDD) 

1  * (  IDUM3 ( 17 ) * 

2  I DN ) * ( I DUM3 ( 18) » IXBK)  * ( I DUM3 ( 19)  .NFLGC) * (  IDUM3(20)  »IR) 
1  * (  IDUM3 ( 21 ) 

31  I  )  *  (  IDUM3 ( 22 ) *  NRR )  # ( IDUM3( 23 ) *  N I  I ) » ( IDUM3 (24) »JF ) 

1  ♦  (  IDUM3 ( 25 ) ♦ NBK 

4* ( IDUM3 ( 26  )  * IY) » ( IDUM3 (27 ) ♦ IX ) ♦ ( IDUM3( 28 )  • I  BACK) 
EQUIVALENCE  ( IDUM3(29) *ISPY) ♦ ( IDUM3(3Q) ♦ IP) * ( IDUM3(31 ) 
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1  *  I  N ) 

EQUIVALENCE  ( IDUM3(32) *NFLS1) *( IDUM3I33) *NFLS2> 

1 * (  IDUM3 ( 34 ) * NFLS3 ) 

EQUIVALENCE  (  IDUM3(35) * NTDS ) * ( IDUM3(36) *ISPTF) 

1  * (  IDUM3 (40 ) ♦ I WV ( 1 )  ) 

EQUIVALENCE  (RDUM3(1) *  RWV ( 1 >  ) *(RDUM3(43>  *RIOV(l)  ) 
EQUIVALENCE  (RDUM3(75) ♦ G A  I N ) * <RDUM3(76 ) *  DELAY) 

1  * ( RDUM3 ( 77 ) ♦  TLAG ) 

DATA  WCC/ 1.000 *1. 000 * 1.2 08 *0.936 *0.902  *0.98  5  *  1.411 
1  *0*917  tQ*490t 

11. 084 *0.900 *1*000 *3*333* 1.000  *0.928  *0.946*0*928  *0.583 
1*0.984*0.986 

21.644*0.707*  1 .305  *0.95  9*2.033  *0.739  *0.85  9  *0.977 ♦ 1.484 
1*0.680*1.200 

31.000*2 .000, 1.000 *0.500* 1.000* 1.370* 0.950 *0.740* 0.738 
1  *0.365*0.950 

41. 43 5*0. 921 *1.139*0. 749*0. 482, 1.137, 1.49 5 *0.945 *0.917 
1  *0.771,0.560 

51. 006 *1.357*0. 947 *1.1 76 *0.73 8 *0.381 *0.99 5/ 


C 

IFUBACK-99)  9*10*9 
SET  INITIAL  VALUE  COUNTERS. 


9  JF  =  1 
NTD  =  0 
I  X  =  0 
I  Y  =  0 
NFLG1 =0 
NFLG2S£0 
NFLG3=0 
I DDAC=0 
I DNACs0 
I XBK~0 
I PASS=0 
I BACK=0 

C  SEARCH  FOR  THE  FIRST  NON  ZERO  ENTRY  IN  VECTOR  ITFV. 

10  I B ACK=0 

NBK= I TFV ( JF ) 

IF(NBK)  11*11*19 

C  CHECK  JF  AGAINST  INO. 


f 


I  r  )  I  '  J  ,  (  •  r  J 
V  C»  _/  I  .  *  * 


(/NX 

:j  ■!)«([  0JO  *  (  .  ■  )  c  4  J v  i  /  3JAV  '  JO's 

(  -i ,  » { -  i  ■ '« u ci ;  *  x 

JEV.ua  I)  M3JAVIUQ3 

(  {  ;  )  v  r  •  (  0  A  )  ?  N  ■ I  )  *  I 


{  ■  5  /  ;  *  (  c  .> ' 


,!Cfl  )*('.;)  vw 


I  r  >  < 


'Mucc:  ‘.d/B-.av:  k 


:  ,  { ;  I  ;*  (  cV  )  ;  *-*• .  c  )  AV  '  '.'3 

(  .3  A . .  *  (  V  ' 


» 


I  •  .  I  •  O  •  ’* 

,  »  •  *3  •  »  s  • 

,  -  .  *  (  •  •  .  • 


*3  •  0  »  >  «  1  •  •  •  •  ✓  •  I  *  '  •  i  x  a 

,  *  I 

*  l  •  .  (  F  £  i  •  f  ’  •  •  • 

",  r'  0  -A  '  «  C  * 

„  ♦  \  »  •  .N  +•'  •  ±.  , 


0 


0  f  0  :  f 


C  N  < 


r  '  -  r\  r 

•  i  •  y  •  *  i 

•  *  t  •»  i.  •  .  J  •  •  •  J  0  #  1  E  •  ‘  f  -  •  • 

:*?f  •  ;*  •  •  I 

•  .  *  *  •  .  •  .  -  •  •  ’■ 

■  .  •  TV*'*  . 


AV 


i  r»  f\  ,  *J 

*  1  ‘  f*  • 


.  «  { <  -XDA8I ) 31 


: . . ;  j  i  •  .  .  A  V  J  ■'•III/'  T  3  r 


i  -  *-•  l  p 
0  -  0  T  / 
0~x  3 
0  -  Y  I 
■  ■  IDJ3/: 

C  --  V  D  J 1  / 

:•  =  ££  i 31/ 

..  )Aaai 
0  *  DA 

C =>- x  I 
0=--  f'.S  A9  I 
■:  '  '  i 


.  |  j  j  T  1  .  MI  -  T/i3  9\  M  '  f 


•  oac i  r  : 

(  -i.  )  V3T  i  *  *  •  - 

(  N  _!  )  J  T 


,  [  X  *  I  : 


i  T  /'I-OA  i  u  >03 


non  non  nn 


E 


22 
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11  IF(JF-INO)  12*12*15 

12  JF= JF+ 1 
GO  TO  10 

15  WR I TE ( LUNO  *  16  ) 

16  FORMAT ( 1H  *' UNSUCCESSFUL  INPUT  OF  DATA1) 

CALL  EXIT 

A  T.F.  IS  FOUND  AT  LOCATION  JF. 

FIND  CODE  NUMBER 

19  NCD  = I CDV ( JF ) 

CALL  FIND  ( JF* INO*NBLKV* I TFV * N I  V  *  NR V  *  I V»RV*NI I »NRR* IWO 
1 *RWO* I  I  * IR* 

1  I  I OV  *  R I OV ) 

I  F ( 10-NPRTY )  20*20*25 

20  CONTINUE 


WRITE ( LUNP  *21  ) 
WRITE ( LUNP  *  2  2  ) 
WR I TE ( LUNP  »  2  3  ) 
WRITE ( LUNP  »  24 ) 


(  IWO( I )  *  1  =  1 *NI I ) 
( RWO ( I )  *  1  =  1 *NRR) 
(  I  I OV ( I  )  *  1  =  1  *  I  I  ) 
(  RIOVU  )  *  1  =  1  ♦  IR  ) 


21 

22 

23 

24 


FORMAT ( 1H0  *  * IWO' // ( 515 )  ) 
FORMAT ( 1H0 ♦ ' RWO' // ( 5E15.6 ) ) 
FORMAT (1H0*» IIOV'//(5I5) ) 
FORMAT (1HO*'RIOV'//(5E15 .6) ) 


25  CONTINUE 

IF(NCD)  50*50*30 

30  GO  T0(60»70*75*80*100»ll0*120  *130)  *NCD 


C  IT  IS  A  STANDARD  T.F. 

50  DO  51  K= 1  * N I  I 
I WV ( K )  =  I  WO ( K ) 

51  CONTINUE 

DO  52  K= 1  * NRR 
RWV ( K ) =RWO ( K. ) 

52  CONTINUE 
GO  TO  150 

60  WRITER  LUNO  *61) 
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C 

61  FORMAT (1H  *  *  THI S  IS  NOT  A  TRANSFER  FUNCTION. NCD  IS 
1  ONE1  ) 

CALL  EXIT 

IT  IS  A  STANDARD  FIRST  ORDER  PROCESS  T.F. 

CHECK  IF  PROCESS  TF  PARAMETERS  ARE  GIVEN  BY  USER  OR 
MUST  BE  READ 

FROM  DISK  FILES. ( LIBRARY  OF  PROCESS  T.F.  PARAMETERS 
DETERMINED  BY 

PROGRAMS  AS  BAKKE  *  S  STEP  RESPONSE  ANALYSIS  ETC.) 


70  IF(NRR)72*72*71 

71  IWV(1)=0 
IWV( 2 ) =-l 
RWVC 1 )=RWO(l ) 

RWV(2)=RWO(2) 

RWV ( 3  )  - 1 • 0 
RWV ( 4 ) =  RW0 ( 3 ) 

N  I  1=2 

SET  THE  FLAG  FOR  PROCESS  TRANFER  FUNCTION  PARAMETERS. 


I SPTF=99 
GA I N=  RWO ( 1  ) 

DELAY=RW0 ( 2  ) 

TLAG=RW0( 3 ) 

GO  TO  150 

PROCESS  T.F.  PARAMETERS  MAY  BE  READ  AT  THIS  POINT  FROM 
DISK  FILES. 

PRESENTLY  THE  FOLLOWING  MESSAGE  IS  GIVEN. 


72  WR I TE ( LUNO ♦ 73 )  NBK 

73  FORMAT ( 1H  *  *  PARAMETERS  FOR  PROCESS  T  . F  .  •  ♦  I  5 » 2X ♦ ' NOT 
1  AVAILABLE  FRO 

1  LIBRARY'/) 

GO  TO  93 

IT  IS  A  STANDARD  SECOND  ORDER  PROCESS  T.F. 


75  IF(NRR)72*72*76 

76  IWV(1)=0 
IWV( 2 ) =-l 
I  WV ( 3 ) *-l 
RWV ( 1 ) =RWO( 1 ) 
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RWV ( 2 ) =RWO ( 2 ) 

RWV { 3 )=1.0 
RWV ( 4 ) =RWO ( 3 ) 

RWV ( 5 ) = 1 • 0 
RWV ( 6 ) =RWO ( 4 ) 

N  I  I  =  3 

GO  TO  150 

C  IT  IS  A  PROPORTIONAL  CONTROLLER  T.F. 

C 

80  CONTINUE 
IF(NRR)  81*81*98 

81  CONTINUE 

IF (  ISPTF-99 )  82*84*82 

82  WR I TE ( LUNO  *8  3)  NBK 

83  FORMAT ( 1H  » ' CONTROLLER  CONSTANTS  FOR  T  .F.  •  *  I  5 *2X » • NOT 
1  AVAILABLE  F 

10M  LIBRARY'/) 

GO  TO  93 

84  I SPTF=0 

12= I WO ( 1 ) 

1 3=  I  WO ( 2 ) 

DO  85  1=1*3 
RWO ( I ) =  0.0 

85  CONTINUE 

CALL  GTCC1 (GAIN*DELAY»TLAG*NCD* 12 ♦ I3*RWO*WCC ) 

I  F ( 3-NPRT Y )  86*86  *90 

86  CONTINUE 

WRITE (LUNP *87 )  GA  I  N ♦ DEL A Y . TLAG * NCD ♦ I  2  *  I  3 

87  FORMAT ( 1H  .// /T 1 6 *' CONT ROLLER  CONSTANTS  FROM  LIBRARY'/ 
1  / T 2  .  • PROCES 

1  GAIN . * . '  *F10.4/T2* ' TIME 

1  DELAY . . 

2  . *F10*4/T2  *  ’  T  IME 

1  LAG . . . .  •  •  • 

3  . •  *F10.4/T2 * 'CONTROLLER  CODE... 

1 . .  .  '  *  I  10/T2 

4 ' CODED  CRITERION  TO  SELECT  CONSTANTS . SI10/T2 

1  * ' CODED  DISTURBA 

5CE  TO  SELECT  CONST ANTS ...'* 1 1 0 / ) 

WRITE (LUNP*88 )  < RWO ( I )  *  I  =  1  *  3 ) 

88  FORMAT ( 1H  *' PROPORT  I ONAL  CONSTANT . . 
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C 

1 *F10.4/T2 *  •  I 

1TEGRAL  TIME.* . . . .  *  ♦  F 10  *4/T2 

1 ♦ ‘DERIVATIVE  TIME 
2 . . . .  '  *  F 1 0  •  4  ) 


90  CONTINUE 

I  F ( NCD-5 )  98*105*115 


SET  FLAG  FOR  REENTRY  TO  PREVIOUS  LINK. 


93  IF ( LUNR-LUNI )  94*97*94 

94  WR I TE ( LUNO  *95  ) 

95  FORMAT ( 1H  »'  ENTER  CORRECT  T.F.  PARAMETER  * / ) 

CALL  TWAIT 

IFLG1=99 

I NO= I NO+ 1 

CALL  LINK  ( LAST  1 ) 

97  CALL  EXIT 

98  IWV(1)=Q 

RWV ( 1 )=RWO(l ) 

RWV ( 2 ) =0 • 0 
N  I  I  =  1 
GO  TO  150 

C  IT  IS  A  PROPORTIONAL  PLUS  INTEGRAL  CONTROLLER  T.F. 


100  IF(NRR)  81*81*105 
105  IWV(1)=0 
IWV( 2  )  =  1 
I WV  < 3 )=-l 
RWV ( 1 ) =  RWO ( 1 ) 

RWV ( 2 ) =  0 • 0 
RWV ( 3 ) = 1 • 0 
RWV ( 4 ) sRWO ( 2 ) 

RWV ( 5 ) =0.0 
RWV ( 6 ) =RWO ( 2 ) 

N  I  1  =  3 
GO  TO  150 

C  IT  IS  A  REAL  P.I.D.  CONTROLLER  T.F. 
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110  IF(NRR)  81*81*115 

115  IWV(1)=0 
IWV( 2 ) =2 
I WV ( 3 ) --2 
RWV ( 1 )  =RWO ( 1 ) 

RWV (2 ) =0 • 0 
RWV ( 3 ) = 1 • 0 
RWV ( 4 ) =RWO ( 2 ) 

RWV(5)=RWO(2)*RWO(3) 

RWV ( 6 ) =0 • 2 
RWV ( 7 ) =RWO ( 2 ) 

RWV ( 8 ) =0. 2*RWV( 5 ) 

N  I  1  =  3 
GO  TO  150 

120  WR I TE ( LUNO  *121)  NBK 

121  FORMAT ( lH  •’ILLEGAL  INPUT  CODE  IN  T.F.'*I5) 
GO  TO  93 

130  GO  TO  120 


THIS  PART  DETERMINES  THE  NUMBER  OF  FACTORS  AT 
NUMERATOR  AND  DENOMINATORS  PLUS  THEIR  DEGREES 


150  IP=0 
I  N  =  0 
I  DN  =  0 
I  DD  =  0 
NFLGC=0 
NTDS=0 
NFLS1=0 
NFLS2  =  0 
NFLS3  =  0 
I DER=0 
K=  1 

160  I  F (  I W V  l  K )  J  161 ♦ 165 ♦ 165 

161  IN=IN+1 

I DD= I DD+ I ABS ( IWV(K) ) 

GO  TO  170 
165  IP=IP+1 

IDN=  IDN+IWVOC  ) 

170  IF(K-NII)  171.180.180 

171  K  =  K  + 1 

GO  TO  160 

180  IDNAC=IDNAC+IDN 
IDDAC= IDDAC+IDD 

IF(IO-NPRTY)  181.181.190 

181  CONTINUE 
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WRITE ( LUNP. 185 )  NBK *  I P ♦ I N . I DN *  I DNAC ♦ IDD* IDDAC 
185  FORMAT  ( 1H0  *  '  NBK  IP  IN  I  DN  I  DN  AC  IDD  IDDAC//7I5) 


190  CONTINUE 

THIS  PART  CHECKS  FOR  ILLEGAL  TRANSFER  FUNCTIONS. 
1000  PTS  ARE  ASSUMED  FOR  DETECTING  ANY  TIME  DELAY. 


IF(IDN-IDD)  200  *230  *280 

200  IFUWV(l))  299*201  *299 

201  IF(ABS(RWV(2) ) - 1 • E-03 )  299*299*210 
210  NTDS=NTDS+1 

NTD=NTD+NTDS 
TD ( NTD ) =RWV ( 2 ) 

GO  TO  299 

230  I F ( IN)  240*240*260 
240  NFLGC=NFLGC+1 

IF ( ABS ( RWV ( 2 ) ) -1 • E-03 )  2999*2999*250 
2999  I SPY=2 

CALL  L I NK ( LAST5 ) 

250  NFLS1=NFLS1+1 

NFLG1=NFLG1+NFLS1 
TD ( NFLG 1 ) =  RWV ( 2 ) 

GO  TO  299 

260  IFlIWVd))  299*270*299 

270  IF ( ABS(RWV( 2 ) )-l.E-03)  299*299*272 

272  WRITER  LUNO  *273)  NBK 

273  FORMAT ( 1 H  *‘TIME  DELAY  ASSOCIATED  WITH  T.F.’*I5*5X 
1  * ' FOR  WHICH  I DN 

1 IDD* ) 

GO  TO  93 

280  I  F (  IN)  285  *285.281 

281  WRITE(LUNO*282)  NBK 

282  FORMAT ( 1H  .'ILLEGAL  T . F . '  .  I  5 . 5X  ♦  •  I  DN  IS  GREATER  THAN 
1  IDD'  ) 

GO  TO  93 

285  IF(IDN-l)  290*290.286 

286  WR I TE ( LUNO  *287  >  NBK 

287  FORMAT ( 1H  .'SECOND  ORDER  DERIVATIVE  TERM  IN  T.F.'*I5 
1  *  5X ♦ ' NOT  ALLO 
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1  ED  '  ) 

GO  TO  93 

290  IF(IP-l)  295*295*292 

292  IF ( A8S(RWV(2 ) )-l.E-03)  295*295*293 

293  WRITE ( LUN0.294)  NBK 

294  FORMAT ( 2H  ILLEGAL  COMBINATION  OF  DERIVATIVE  TERM  AND 
1  T. DELAY  IN 

1 T  •  F • *  *15) 

GO  TO  93 

295  NFLS2=NFLS2+1 
NFLG2=NFLG2+NFLS2 

299  CONTINUE 

I  F ( 10-NPRTY )  3000.3000*3010 
3000  CONTINUE 


WRITE ( LUNP.3  001 ) NFLGC * NTDS *NFLS 1  * NFLS2  *NFLS3*NTD*NFLG1 
1  * NFLG2  * NFLG 

3001  FORMAT (1H0** NFLGC  NTDS  NFLS1  NFLS2  NFLS3  NTD  NFLG1 
1  NFLG2  NFLG3 
1//9I6) 


3010  CONTINUE 

CALL  L I NK ( LAST4 ) 
END 
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THIS  IS  LINK.  4  OF  PART  A 


EXTERNAL  LAST  1  *  LAST5 

DIMENSION  VN ( 1 1  )  ♦  VD ( 1 1  ) * V 1 ( 1 1 ) * V2 ( 1 1 )  »  Z  (  1 1  )  ♦  ALPHA ( 121 ) 
1 *RWV( 42 ) 

DIMENSION  I W  V  (  2 1 ) 

DIMENSION  IDUMK80) 

DIMENSION  RDUMK45) 

DIMENSION  IDUM2 ( 290 ) .RDUM2 ( 330 ) 

DIMENSION  IDUM3 ( 70 ) *RDUM3 ( 80 ) 

COMMON  IDUM1 .RDUM1 . IDUM2 .RDUM2  » IDUM3  *RDUM3 

EQUIVALENCE  ( IDUM1 ( 1 ) » LUNR )  » (  IDUM1 (2 )  *LUNP) 

1  ♦  ( IDUM1 ( 3  5  # LUN I ) 

EQUIVALENCE  ( IDUM1 (4) #LUNO) * ( IDUM1 ( 13) .NTD) » ( IDUM1 ( 15 ) 
1 *NPRTY ) 

EQUIVALENCE  <  IDUMK24)  . NFLG1  )  t(  I  DUM  1(25)  .  NFLG2  ) 

1  .  ( IDUM1 (26 ) * NFLG3 ) 

EQUIVALENCE  (  IDUMK20)  . INO)*(  I  DUM  1(23)  .  IFLG1) 

EQUIVALENCE  ( IDUM3( 16) * IDD) * ( IDUM3( 17) . IDN) * ( IDUM3(25 ) 
1 *NBK ) 

EQUIVALENCE  (  IDUM3(29)  *ISPY)  ♦  (IDUM3(30)  .IP)  *(IDUM3(31) 
1  .  IN) 

EQUIVALENCE  ( IDUM3(32) .NFLS1)  .( IDUM3(33) # NFLS2 ) 

1  .  (  IDUM3 ( 34 ) ♦ NFLS3 ) 

EQUIVALENCE  ( IDUM3(12) . IDER) * ( IDUM3(35 ) ♦ NTDS ) 

1  ♦  ( IDUM3 (40 ) • IWV( 1 )  ) 


C 


EQUIVALENCE  ( VN ( 1  )  »RDUM3(54) )  * ( RDUM3 ( 6 5 )  . VD ( 1 )  ) 
1  .  ( RDUM3 ( 1 )  »RWV ( 1 )  ) 
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THIS  PART  DECOMPOSES  MULTITERM  TRANSFER  FUNCTIONS 

INTO  SINGLE  TERM  ONES 

ONES. 


CHECK  FOR  CONSTANT  T.F.'S. 
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C 

IF(NFLSl)  300*300*499 
300  NFLAG=0 
L  =  1 
J=1 
ID*IP 

ZERO  VECTORS  OF  COEFFICIENTS. 


<1=100+1 
DO  304  K= 1 »K 1 
VN ( <) =0*0 
VD ( < ) =0  •  0 

304  CONTINUE 

305  IF(ID-l)  306*310*330 

306  IF(NFLAG)  307*307.330 

307  WRITE (LUNO. 308  )  NBK 

308  FORMAT (1H  .'ILLEGAL  T • F • ‘ *  I  5 . 5X •' NUMERATOR  IS  ZERO') 
GO  TO  700 

310  IF(NFLAG)  318.318.315 

315  L 1 =L+ I DD 

DO  316  <  =  L  *  L 1 

K 1 =K-L+ 1 

VD ( <1 ) =RWV (<  > 

316  CONTINUE 
GO  TO  399 

318  L1=L+ IDN 

DO  320  K  =  L  * L 1 
VN ( K ) =RWV ( K ) 

320  CONTINUE 

I F (  IDN)  321.321.3 22 

321  L=Ll+2 

GO  TO  370 

322  L  =  L  1  + 1 

GO  TO  370 

330  I D 1= I ABS (  IWV(J)  ) 

L 1 =L+ I D1 
DO  333  K  =  L  . L 1 
K 1 =K-L+1 
VI (K1 ) =RWV(K) 

333  CONTINUE 

IF(IDl)  335.335.336 

335  L  =  L  1  +  2 

GO  TO  340 

336  L=L1+ 1 
340  ID= ID-1 
345  J= J+l 

I D2= I ABS ( IWV( J) ) 

L 1 =L+ I D2 
DO  348  K  =  L  .  L 1 
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K.  1  =K-L  + 1 
V2  (  K 1  )  =  RWV ( K ) 

348  CONTINUE 
L=L1+1 
IDIM1= ID1+1 
I D I M2= I D2+1 

CALL  PMPY  (Z*IDIMZ»V1*IDIM1*V2*IDIM2) 
I  D= I D-l 

I  F  C ID)  355  *355 • 350 

350  I  D 1 = I D I MZ-1 

DO  351  1  *  I D I MZ 

V 1  (  K ) =Z ( K  ) 

351  CONTINUE 
GO  TO  345 

355  IF(NFLAG)  365*365*360 

360  DO  361  K=1»IDIMZ 
VD  (IO  =Z  (K  ) 

361  CONTINUE 
GO  TO  399 

365  DO  366  K*1.IDIMZ 
VN ( K ) =Z ( K ) 

366  CONTINUE 
370  J=J+1 

NFLAG=NFLAG+l 
ID=  IN 

I  F ( NFLS2 )  305*305  *499 
399  CONTINUE 

IF(IO-NPRTY)  3998*3998*4000 
3998  CONTINUE 


C 

C 


IDD1= IDD+1 

WRITE(LUNP*3999)  ( VN ( I ) » VD ( I )  *  I  =  1 » I  DD 1 ) 
3999  FORMAT ( 1 HO » 5X ♦ • VN ' ♦ 10X . » VD ' / / ( 2 E 1 5 . 6 ) ) 


C 

C 


4000  CONTINUE 


C 
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THIS  PART  BUILDS  THE  MATRIX  ALPHA  * F I NDS  THE 
COEFFICIENTS  B'S  AND 

STORES  THEM  INTO  VN  VECTOR  *  THE  COEFFICIENTS  A*S  BEING 
STORED  IN  VD 
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C 

LD= I DD+1 

C  FIND  COEFFICIENT  OF  HIGHEST  TERM. 

HT= VD ( LD ) 

C  CHECK  IF  IT  IS  2ERO. 

IF(ABS(HT)-1.E«06)  400*400*410 

400  WRITE (LUNO*401)  NBK 

401  FORMAT ( 1H  *‘ZERO  HIGHEST  ORDER  COEFFICIENT  IN  T.F.' 
1*15) 

CALL  EXIT 

C  DIVIDE  BOTH  NUMERATOR  AND  DENOMINATOR  BY  HT . 

410  DO  415  K=  1 » LD 
VN(K)=VN(K)/HT 
VD(K)=VD(K)/HT 
415  CONTINUE 

C  ZERO  MATRIX  ALPHA  FROM  SECOND  COLUMN  ON. 

LDLD“LD*LD 
DO  418  K=LD*LDLD 
ALPHA ( K ) =0 .0 
418  CONTINUE 

C  SET  UP  MATRIX  ALPHA- 

DO  430  J= 1  ♦  LD 

J1=LD-J+1 

DO  420  K= 1  *  Jl 

K  1  =LD-K+ 1 

K2=K+ ( J-l ) *(LD+1 ) 

ALPHA(K2)=VD(K1) 

420  CONTINUE 
430  CONTINUE 

C  REVERSE  VECTOR  OF  BETA'S  BEFORE  SOLVING  THE  SYSTEM  FOR 

C  B'S. 

Ll=LD/2 
DO  440  Ks  1  * L 1 
TEMP= VN ( K ) 

K1=LD-K+1 

VN(K)=VN(Kl) 

V  N ( K 1 ) =TEMP 
440  CONTINUE 
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C 

IF(IO-NPRTY)  44 1  *  441 >44  5 
441  CONTINUE 


WRITE ( LUNP  *  442 ) 

442  FORMAT ( 1HC.10X* 'MATRIX  ALPHA*/) 
CALL  MATPR (LD*LD .ALPHA. Z  .LUNP  ) 


445  CONTINUE 

CALL  SIMQ(ALPHA.VN.LD*IER1) 
IF(IO-NPRTY)  460*460.499 
460  CONTINUE 


WRITE(LUNP*450)  ( VN (  I )  ♦ I  =  1  * LD  ) 

450  FORMAT ( 1H0 * 'COEFFICIENTS  B*/(E15.6)) 


499  CONTINUE 


THIS  PART  ANALYZES  DIFFERENT  CASES  AND  BRANCHES 
CORRESPONDINGLY. 


IF(NFLSl)  510*510.540 

510  I  F ( NFLS2  )  511.511*570 

511  IF(NTDS)  512.512*513 

512  I SPY=  2 

GO  TO  610 

513  GO  TO  ( 520*525*535.535 ) *NTD 
520  I SPY  =  3 

C  MATRICES  D1  AND  El  NEEDED. 

GO  TO  610 
525  I SPY=4 


C 


MATRICES  D2  AND  E2  NEEDED 
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C 

GO  TO  610 

635  WRITE(LUNO*536) 

536  FORMAT (1H  »'ONLY  TWO  TIME  DELAYS  ALLOWED'/) 

GO  TO  700 

540  IF(NTD)  545*545 »541 

541  WRITE ( LUNO. 542 ) 

542  FORMAT (1H  *'NO  OTHER  TIME  DELAY  ALLOWED  WITH  AN 
1  ISOLATED  ONE'/) 

GO  TO  700 

545  IF(NFLGl-l)  550*550*546 

546  WRITE (LUN0*547) 

547  FORMAT ( 1 H  *'ONLY  ONE  ISOLATED  TIME  DELAY  ALLOWED'/) 
GO  TO  700 

550  I  F ( NFLG2 )  551  *551  *552 

551  I  SPY= 1 

C  MATRICES  AL  AND  AM  ARE  NEEDED. 

GO  TO  610 

552  I  F ( NFLG2-1 )  555  *  555  *553 

553  WR I TE ( LUNO *554) 

554  FORMAT (1H  *'ONLY  ONE  DERIVATIVE  ACTION  ALLOWED'/) 

GO  TO  700 

555  NFLS3=NFLS3+1 
NFLG3=NFLG3+NFLS3 
GO  TO  551 

570  IF(NTD)  575*575*571 

571  WRITE ( LUNO  *572) 

572  FORMAT (1H  * ' NO  TIME  DELAY  ALLOWED  WITH  A  DERIVATIVE 
1  ACTION'/) 

GO  TO  700 

575  I  F ( NFLG2- 1 )  576  *576*553 

576  IF(NFLGl)  600*600*582 
582  IF(NFLGl-l)  585*585*546 
585  NFLS3=NFLS3+1 

NFLG3=NFLG3+NFLS3 
600  I DER= I DER+1 
610  CONTINUE 

IFUO-NPRTY)  620.620*640 
620  CONTINUE 

WR I TE ( LUNP  *630 )  IDER.ISPY 
630  FORMAT (1H  *'IDER  ISPY»/2I5) 

640  CONTINUE 

CALL  LINK(LAST5) 


700  CONTINUE 
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IF (LUNR-LUNI )  710»750*710 
710  WRITE! LUNO  *715) 

715  FORMAT ( 1H  # '  ENTER  CORRECT  T.F.  PARAMETER'/) 

CALL  TWA  IT 

I  FLG1  =  99 

I NO= I NO+ 1 

CALL  LINK(LASTl) 

750  CALL  EXIT 
END 
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C 


THIS  IS  LINK  5  OF  PART  A 

THIS  PART  SETS  VALUES  OF  A*S  AND  B'S  INTO  SPECIFIC 
LOCATION  OF  PROPER  MATRICES 


EXTERNAL  LAST3  *  LAST6 

DIMENSION  VI ( 11 ) *VN( 11 ) *VD( 11 ) *RWV(42 ) *RIOV( 10 ) 

1 »II0V(11 ) 

DIMENSION  Al(lOO) *  B 1 ( 1 50 ) *C1(1Q0)  *  F  (  15  0  )  #G ( 225 )  *  H ( 1 50  ) 
1  * AL ( 225 ) » 

1AM (150) »AL1(225) ♦ D 1 ( 1 50 ) *  El ( 1 00 ) *  D2 ( 1 50 ) *  E2 ( 100 ) 
DIMENSION  A (100)  •  B ( 200 )  * C ( 1 50 ) # D ( 300 ) 
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EQUIVALENCE ( IDUM3<29) tISPY) 

EQUIVALENCE  ( RDUM3 ( 1 ) »RWV ( 1 ) )  » (RDUM3 (43 ) *  R I OV ( 1 )  > 
1  ♦  ( RDUM3 (54)  *  VN ( 1 
1  ) * ( RDUM3 ( 65 ) »VD( 1 )  ) 
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ZERO  ALL  MATRICES  THE  FIRST  TIME  THROUGH 


IPASS=IPASS+1 
IF(IPASS-l)  10*10*20 
10  MTOT=  300 

DO  15  I = 1  *  MTOT 
RDUM4 ( I  )=0.0 


15  CONTINUE 
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WR I TE ( 5 9  *  1  )  AL1 
WR I TE ( 60  *  1  )  D 1 
WR I TE ( 6  1  ' 1  )  El 
WRITE(62'1)  D2 
WRITE(63*1)  E2 


20  IF(IDER)  21*21*800 

21  CONTINUE 
NFLAG=0 

I  VR  =  M 
N I D  =  NBK 

IF(NFLGC)  615*615*625 
615  IF(ABS(VN( 1 ) J-l.E-06)  710*710*620 
620  DO  623  K= 1  *  I  I 

VI (K) =VN( 1 )*RIOV(K) 

623  CONTINUE 
GO  TO  630 
625  DO  628  K =  1*11 

VI (K)=RIOV(K)*RWV( 1 ) 

628  CONTINUE 
630  CONTINUE 

635  J=1 

C  DISTINGUISH  BETWEEN  A  U  AND  A  Y. 

636  IF ( I IOV ( J )-100 )  675*675*640 
640  KK s  I  I OV ( J ) - 1 00 

NZ=NID+IVR*(KK.-1  ) 

GO  TO (650 *655 *660*665 )♦ I  SPY 
650  WR I TE ( 5 8  *  NZ ) V 1 ( J  ) 

GO  TO  701 

655  IF(NFLAG)  656*656*658 

656  WRITE(56'NZ)V1( J) 

GO  TO  701 

658  WRITE(53'NZ)V1( J) 

GO  TO  701 

660  WR I TE ( 6 1 ' NZ ) VI ( J  ) 

GO  TO  701 

665  WRITE(63'NZ)V1( J) 

GO  TO  701 

675  KK-IIOV(J) 

NZ=NID+IVR*(KK-1 ) 

GO  TO  (680*685*690*695 )* ISPY 
680  WRITE (57* NZ)V1 ( J) 
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GO  TO  701 

685  I  F  ( NF  LAG )  686*686*688 

686  WRITE(55'NZ)V1( J> 

GO  TO  701 

688  WRITE ( 52  «  NZ ) VI ( J ) 

GO  TO  701 

690  WRITE(60'NZ)V1(J) 

GO  TO  701 

695  WRITE(62'NZ)V1( J) 

701  IFIJ-II)  702*710*710 

702  J  =  J+l 

GO  TO  636 

710  IF(IDD)  760*760*712 
712  IF(NFLAG)  715*715*739 

C  STEP  UP  COUNTER  FOR  X- 

715  IX=IX+1 

NZ  =  N  I D+M* ( I  X- 1 ) 

FIND( 54 'NZ  ) 

AA= 1 • 0 

WR I TE ( 54 ' NZ ) AA 
IFUDD-1)  725*725*720 

720  K1 = IX+ I DD-2 

DO  721  K=IX*K1 
NZ=K+K*N 
WRITE (51 'NZ) AA 

721  CONTINUE 
I X-Kl+l 

725  DO  730  K=1»IDD 

NZ= I X  +  N* ( IDDAC-IDD)+N*(<-1  ) 

AB  =  *VD ( <  ) 

WR I TE ( 5 1 • NZ ) AB 
730  CONTINUE 
I  VR  =  N 

NFLAG=NFLAG+1 
JT  -2 

N I D= I  X- I DD 

739  IF(JT-IDD-l)  740*740.760 

740  IF(ABS(VN( JT) )-l.E-06)  741*741*742 

741  VN ( JT ) =0  •  0 

742  DO  743  K=1*II 

VI <K)=RIOV(K)*VN( JT) 

743  CONTINUE 
JT  =  JT  +  1 

N I D=N I D+ 1 
GO  TO  635 
760  I Y=  I  Y  +  l 

GO  TO  1000 
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800  J=1 

806  KK= I  I OV ( J ) 

NZ-NBK+M* ( KK-1  ) 

K=  1 

807  V1(K)=VN(K)*RI0V(J) 

IF(K-l)  810*810*815 

810  WRITE(55'NZ)V1(K) 

GO  TO  820 

815  WR  I  TE ( 59 ' NZ ) VI ( K ) 

820  IF(K-IDN-l)  821*825*825 

821  K  =  K+ 1 

GO  TO  807 

825  IF(J-II)  826.760*760 

826  J= J+l 

GO  TO  806 

FINAL  CHECKING. X  AND  Y  COUNTERS  ARE  COMPARED  WITH 
OVERALL  DIMENSIONS  N  AND  M.IF  THERE  IS  AN  ERROR 
EXECUTION  IS  STOPPED  AFTER  PRINTING  OUT  A  MESSAGE 


1000  CONTINUE 

IF(IO-NPRTY)  1400.1400*1450 
1400  CONTINUE 


WRITE (LUNP.1004)  I X  *  I Y 
1004  FORMAT ( 1H0  * '  IX  I  Y • / / 2  I  5 ) 


1450  CONTINUE 

IF(IX-N)  1001.1001*1005 

1001  IF(IY-M)  1002*1010*1005 

1002  WRI TE ( LUN0.1003 ) 

1003  FORMAT ( 1H  .'INPUT  OF  A  T.F.  AND  ITS  CONFIGURATION  DATA 
1  SET  COMPLE 

1  ED ' / ) 

JF= JF+1 

IF(JF-INO)  1040*1040*1007 

1005  WRITE (LUN0.1006 ) 

1006  FORMAT ( 1H  * • F  I  NAL  ERROR  MESSAGE '//' WRONG  OVERALL 
1  DIMENSIONS’ ) 

CALL  EXIT 

1007  WRITE (LUNO. 1008 ) 
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C 

1008  FORMAT ( 1H  •• UNSUCCESSFUL  INPUT  OF  DATA1) 

CALL  EXIT 

1010  IF(IX-N)  1002*1011*1005 

1011  IF ( IDNAC-I DOAC )  1020.1025*1026 

1020  WRITE (LUN0.1021 ) 

1021  FORMAT ( 1H  * • DATA  TRANSMISSION  SUCCESSFUL'/) 

GO  TO  1100 

1025  IF (NFLG1+NTD)  1020*1020*1026 

1026  WRITE (LUN0.1027 ) 

1027  FORMAT ( 1H  .'FINAL  ERROR  MESSAGE '//' I LL EGAL  OVERALL 
1  CONB I  NAT  I  ON  OF 

1 T • F •  AND  TIME  DELAYS' ) 

CALL  EXIT 
1040  I BACK  =  99 

CALL  LINK  ( LAST3 ) 

1100  CONTINUE 

I F ( 8-NPRT  Y )  1150  *  1150*1350 
1150  CONTINUE 


READ ( 5 1 ' 1 )  A 1 
WRITE ( LUNP  *  1200  ) 

1200  FORMAT ( 1H0 *20X* 'MATRIX  A 1 • / ) 
CALL  MATPR(N*N*A1 *RWV*LUNP) 
RE AD ( 52  '  1  )  B 1 
WRITE! LUNP  *1210) 

1210  FORMAT ! 1H0.20X* 'MATRIX  Bl'/J 
CALL  MATPR ( N  » M  *  B 1  .  RWV  »  LUNP ) 
READ ( 5 3  '  1  )  Cl 
WRITE ( LUNP  *  1 2  20 ) 

1220  FORMAT (1H0.20X*' MATRIX  Cl'/) 
CALL  MATPR (N*NF. Cl *RWV. LUNP) 
READ ( 54 ' 1  )  F 
WRITE ( LUNP. 1230 ) 

1230  FORMAT ( 1H0.20X* 'MATRIX  F  * / ) 
CALL  MATPR (M*N*F *RWV*LUNP ) 

RE AD ( 55  '  1  )  G 
WRITE ( LUNP* 1240  ) 

1240  FORMAT ( 1H0.20X* 'MATRIX  G ' / ) 
CALL  MATPR! M*M*G* RWV . LUNP ) 
READ ( 56 ' 1  )  H 
WRITE (LUNP.1250 ) 

1250  FORMAT (1 HO *20X*' MATRIX  H'/) 
CALL  MATPR (M*NF *H*RWV*LUNP ) 
READ ( 57 ' 1 )  AL 
WRITEILUNP.1260) 

1260  FORMAT! 1H0.20X* 'MATRIX  AL • / ) 
CALL  MATPR! M*M*AL*RWV*LUNP) 
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READ (58*1)  AM 
WRI TE ( LUNP  * 1270 ) 

1270  FORMAT ( 1H0»20X* 'MATRIX  AM1/) 
CALL  MATPR ( M *NF *  AM* RWV * LUNP ) 
READ ( 59 ‘ 1 )  AL1 
WRITE(LUNP»1280) 

1280  FORMAT ( 1H0*20X* 'MATRIX  AL  1  * / ) 
CALL  MATPR(M*M*AL1*  RWV  *  LUNP ) 
RE AD ( 60 ' 1 )  D 1 
WRITE(LUNP*1290) 

1290  FORMAT ( 1H0*20X* 'MATRIX  Dl'/) 
CALL  MATPR(N*M*D1*RWV*LUNP) 
READ ( 6 1 ' 1 )  El 
WRITE ( LUNP  *  1 300 ) 

1300  FORMAT ( 1H0 *20X* 'MATRIX  El'/) 
CALL  MATPR(N*NF»E1*RWV*LUNP) 
RE AD ( 62 ' 1  )  D2 
WRITE(LUNP*1310) 

1310  FORMAT ( 1H0*20X* 'MATRIX  D2'/> 
CALL  MATPR (N.M.D2 *RWV*LUNP ) 
READ ( 63 ' 1 )  £2 
WRITE(LUNP*1320) 

1320  FORMAT ( 1H0 *20X* 'MATRIX  E2 ' / ) 
CALL  MATPR(N*NF*E2*RWV*LUNP) 


1350  CONTINUE 

CALL  LINK! LAST6 ) 
END 
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C 


C 


THIS  IS  LINK  6  OF  PART  A 


EXTERNAL  LAST? 


ALL  MATRIX  MANIPULATIONS  ARE  CARRIED  OUT  IN  THREE 
BLOCKS  DUM1 *DUM2  *DUM3  IN  COMMON 


DIMENSION  A1  ( 100) *B1 ( 150 )  *C1  ( 100)  *F(  150)  *G ( 225 ) *H  ( 150) 
1 *AL( 225  )  ♦ 

1AMQ50)  *AL1(225  )  *D1<150)  *E1(100)  *D2(150)  »E2(100) 


DIMENSION  UM(225  )  * AT ( 100 ) *BT( 100) *CT ( 150 ) *DT ( 150 ) 
1  * AL2 ( 22  5 )  . 

1 AM2 ( 1 50 ) *02(225)  * A2 ( 225)  *C2( 225)  *B2( 150)  *B3( 150) 

1 *B4( 150 )  *  B5 ( 100 ) 

DIMENSION  WA3 ( 100 ) 

DIMENSION  A( 100 ) *B( 200 )*C(150)*D(300) 


DIMENSION  MV( 5) *MV1(5) *NU(20) *NU1 (20) »UD(20) *UD1 (20) 
DIMENSION  W1 ( 15 ) *W2 (15) 


DIMENSION  IDUMK80) 

DIMENSION  RDUMK45) 

DIMENSION  MBLOK( 50 ) *RBLOK(40) 

DIMENSION  DUM1 ( 300 ) *DUM2 ( 225 ) *DUM3 ( 225 ) 


DIMENSION  TD ( 5 ) 


COMMON  IDUM1 *RDUM1 *MBLOK ♦ RBLOK » DUM1 *DUM2  *DUM3 


EQUIVALENCE  ( IDUM1 (5 ) *N) ♦ ( IDUM1 (6) *M) * ( IDUM1 (7) *NF) 
EQUIVALENCE  ( IDUM1 ( 8 ) *N1 ) * ( IDUM1 ( 9) *N2 ) » ( IDUM1 ( 10 ) »N3 ) 
EQUIVALENCE  ( IDUM1 ( 11 ) *N4) , ( IDUM1 (13) *NTD) 

EQUIVALENCE  (  IDUMK24)  » NFLG1  )  ♦  (  I  DUM  1(25)  *  NFLG2  ) 

1  * (  IDUM1 (26 ) ♦ NFLG3 ) 

EQUIVALENCE  ( IDUM1 (  27  )  * IDET ) ♦ (  IDUM1 ( 28 )  *  I NTD ) 

EQUIVALENCE  ( MBLOK ( 1 ) »MV( 1 ) ) * ( MBLOK ( 6 ) *MV1 ( 1 ) ) 

1  * ( MBLOK ( 11 ) *NU( 1 )  ) * 

1 (MBLOK( 31 ) *NU 1 ( 1 ) ) 

EQUIVALENCE  ( RBLOK ( 1 ) *UD( 1 )  )  ♦  ( RBLOK ( 21 )  *UD1 ( 1 )  ) 

EQUIVALENCE  ( DUM1 (1)*UM(1)*F(1)»H(1)*AL(1)*AM(1) 

1  * AL 1 ( 1 ) * A2 ( 1 ) * 

1C2 ( 1 ) »B ( 1 ) *D( 1 ) » A( 1 ) *C( 1 ) *D1 ( 1 ) *D2 ( 1 ) ) 
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C 


EQUIVALENCE  (  DUM2  (1)»G(1)*B1(1)*B2(1)»B3U)»B4U) 

1 *B5 (  1  )  ) 

EQUIVALENCE  ( DUM3 ( 1 )  ♦  CT  l  1  )  * DT ( 1 ) *AL2 ( 1 ) *AM2 ( 1 ) *Q2  (  1  ) 
1  * A 1 ( 1 ) * AT ( 1 ) * 

1 C 1 < 1 )  »BT(1)*E1(1) * E 2 ( 1 ) *WA3(1  )  ) 


EQUIVALENCE 

(RDUM1 (6 J  >TD< 1  )  ) 

DEFINE 

FILE 

40 ( 95 i 

10  *U  *  NEXT ) 

DEFINE 

file 

91  { 100 

♦2.U.NXT91 ) 

DEFINE 

FILE 

92(200 

»  2  *U  *  NXT92  ) 

DEFINE 

FILE 

93(150 

» 2  *U  *  NXT93 ) 

DEFINE 

FILE 

94(300 

•2.U.NXT94) 

DEFINE 

FILE 

96(420 

»  2  *U .NXT96 ) 

DEFINE 

FILE 

99 ( 160 

*  10  *U»NXT99  ) 

DEFINE 

FILE 

51 ( 100 

»2*U*NXT1  ) 

DEFINE 

FILE 

52 ( 150 

>  2  »U  »  NX  T2 ) 

DEFINE 

FILE 

53 ( ICO 

*  2  *U ♦ NX T3 ) 

DEFINE 

FILE 

54(150 

*  2  »U  *NXT4 ) 

DEFINE 

FILE 

55 ( 225 

» 2  »U  *NXT5 ) 

DEFINE 

FILE 

56 ( 150 

*  2  » U  *  NX  T6 ) 

DEFINE 

FILE 

57(225 

*2*U*NXT7) 

DEFINE 

FILE 

58(150 

»  2  » U  *  NXT8 ) 

DEFINE 

FILE 

59(225 

♦  2  »U  *NXT9 ) 

DEFINE 

FILE 

60(150 

*2  *U  »NXT10 ) 

DEFINE 

FILE 

61 ( 100 

♦  2»U.NXT11  ) 

DEFINE 

FILE 

62 ( 150 

*2.U*NXT12) 

DEFINE 

FILE 

63  (  100 

1 2  *U  * NXT 1 3  ) 

C  DEFINE  MORE  WORKING  MATRICES  ON  DISK  FILES. 


DEFINE 

FILE 

70 ( 100 

.2.U 

♦  NXT70  ) 

DEFINE 

file 

71  (  100 

» 2  »U 

♦NXT71 ) 

DEFINE 

FILE 

72 (150 

♦  2  *  U 

•NXT72) 

DEFINE 

FILE 

73 ( 150 

*2*U 

*  NXT73 ) 

DEFINE 

FILE 

74(225 

*  2  *  U 

*  NXT74 ) 

DEFINE 

FILE 

75(150 

*  2  ♦  U 

*  NX  T7  5 ) 

DEFINE 

FILE 

76(225 

*  2  *U 

♦NXT76) 

DEFINE 

FILE 

77(225 

*2*U 

.NXT77) 

DEFINE 

FILE 

78 ( 225 

» 2  *U 

♦NXT78 ) 

DEFINE 

FILE 

79 ( 150 

*  2  » U 

.NXT79 ) 

DEFINE 

FILE 

80(150 

*  2  *U 

♦NXT80 ) 

DEFINE 

FILE 

81(150 

» 2  *  U 

♦NXT81 ) 

DEFINE 

FILE 

82 (ICO 

*  2  *U 

♦NXT82 ) 

DEFINE 

FILE 

83 ( 100 

» 2  *U 

♦NXT83 ) 

DEFINE 

FILE 

84 ( 100 

» 2  *U 

*  NX  T84 ) 

DEFINE 

FILE 

85(100 

*  2  *U 

♦NXT85 ) 
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C 


MM=M*M 
MN=M*N 
MNF=M*NF 
NM  =  MN 
NN=N*N 
NNF=N*NF 

ZERO  FLAGS  FOR  ZERO  DETERMINANT  (SINGULAR  MATRIX)  AND 
TOO  MANY 
TIME  DELAYS. 

I  DET  =  0 
I  NTD  =  0 

C  SET  UP  A  UNIT  MATRIX  IN  UM  OF  LENGTH  M*M  • 

DO  10  I  =  1 » MM 
UM ( I) =0.0 
10  CONTINUE 
DO  20  I  =  1  * M 
K= ( 1-1  )  *M+I 
UM ( K ) = 1 . 0 
20  CONTINUE 

C  READ  G  FROM  DISK. 

K=  1 

READ( 55  '  K )  ( G ( I ) *  I  =  1 »MM ) 

C  FIND  UM-G. 

CALL  GMSUB (UM.G.G.M.M) 

C  FIND  THE  INVERSE  OF  UM-G. 

CALL  MINV(G*M*DET  * Wl *  W2 ) 

C  CHECK  FOR  SINGULAR  MATRIX. 

I  F  < ABS (DET )-l.E-06 )  30.30.40 
30  IDET=IDET+1 
GO  TO  2000 

C  READ  MATRIX  F  FROM  DISK. 

40  K=  1 

READ ( 54 ' K )  ( F ( I ) *  1  =  1. MN) 

C  MULTIPLY  THE  INVERSE  OF  ( I -G )  BY  F  AND  H. 
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C 

CALL  GMPRD(G*F*CT  *M  *M  *  N ) 

C  WRITE  CT  AND  DT  ON  DISK. 

K=  1 

WR I TE ( 72 ' K ) ( CT ( I  )  .1  =  1. MN ) 

K  =  1 

READ ( 56 ' K  )  ( H (  I  ) *  1  =  1. MNF) 

CALL  GMPRDIG.H.DT  *  M  .M  *  NF  ) 

K=  1 

WRITE(73»K) ( DT ( I  )  .1  =  1. MNF) 

IF(NFLGl)  45.45.41 
45  IFINFLG2)  49.49.47 
41  READ*  57  »  1  )  < AL ( I  ) . I  =  1 . MM ) 

CALL  GMPRD(G.AL.AL2.M»M*M) 

WR I TE ( 74 ' 1 )  < AL2 ( I ) • 1=1 .MM) 

RE  AD  (  58  '  1  )  (  AMU  )  *  1=1  .MNF) 

CALL  GMPRD ( G  * AM  » AM2  #M  *M»  NF ) 

WRITE (75 • 1)  ( AM2 ( I ) . 1=1 .MNF) 

IF ( NFLG3 )  49.49.47 
47  RE AD ( 59 • 1 )  ( ALl (  I  ) *  I  =  1 »MM  ) 

CALL  GMPRD4G.AL1 *Q2.M*M*M) 

WR I TE ( 76 ' 1  )  (Q2 ( I > • 1=1 *MM) 

49  CONTINUE 

C  READ  B 1  FROM  DISK. 

K  =  1 

RE AD ( 52 ' K  )  ( B 1 (  I  )  •  1  =  1. NM) 

C  READ  CT  FROM  DISK. 

K  =  1 

READ ( 72  *  K )  ( CT  < I  )  *I  =  1»MN) 

C  MULTIPLY  B 1  BY  CT  AND  BY  DT. 

CALL  GMPRD(B1.CT.A2*N*M»N) 

C  READ  A1  FROM  DISK  AND  ADD  IT  TO  A2. 

K=  1 

READ ( 5 1 ' K  )  ( A 1 ( I )  *1  =  1. NN) 

CALL  GMADD(A1*A2*AT  *N.N) 

K=  1 

WR I TE ( 70 ' K  )  ( AT ( I  )  .I=1.NN) 

K  =  1 

READ ( 73  '  K  )  ( DT ( I )  *I  =  1.MNF) 

CALL  GMPRD(B1.DT*C2.N*M*NF) 


. >ie:a  / .  t "  .a 


\  .  ~  '  o  ■ 

-/  » 


!  /*•  »  I  1  -  i  >  T  ,  J  (  >  *  ^  )  • 


r  r  v 

t  '  ■ .  • 


-  _ 
i  — 


(  I  If  I  )•:)(”  '  ' 

i .  t>  *  •  «  •  • 

I  -  ‘ 

*  :  .  t 


.  *. ,  ,  :  .  .  )  :  : 

.  . 


'  v :  *  r  i  .  •  .  }  j  A 

.  e  . 

♦  ♦  (  I  )  >  •  '  I  ’  ;  !  T 


!  r 


I ) 


t  -'J 


.  t 


a: 


*  «  V  -T  T 


*  *  *  *  * 

»  i  *  <  - 

•  *  * 

.  «  (  1  )  (  I  * 

I  .  » 

♦  I  =  I  «  i  I  ’ 

;i  U/1  I  r/.(0  S* 


.  •  •  .  r  c 

*  —  i 


( y  /.  •  i  =  1 1 


1  '  v 

)  A  ;i  - 


:  ^  >, 


,  ♦  {  i  )  T  '  ■  ' 


1  t 


c  v  ■  A  I  ;  V  .  c1  v'  ;<U  r  J  A” 


»  •  •  * 


♦ 


,  r  r  i  c a  a / a  > a  ic  -cai  i  a  g a 3 >. 


f  i 


(  !■' 


I  A  )  £  >  *  I  ■■  )  (  A  ‘  •• 
: j-  '  iJ'O 


•  .  »  I  • 

•  i  -  i  »  i  1  A  1  v  v  1 


X  =  » 


!■/!♦:  I  * 
(  i ,  *  '  »  »  A  ->  * 


r  • ;  )  iv 


n  n 


E 


47 


C 


C  READ  Cl  FROM  DISK  AND  ADD  IT  TO  C2. 

K=  1 

READ ( 53  *  K )  <  C 1 < I )  *I=1*NNF> 

CALL  GMADD(C1*C2*BT *N ♦ NF  ) 

K  =  1 

WR  I  TE ( 7 1  *  K )  ( BT ( I  )  »I=1*NNF) 

I  F ( NFLG2 )  50  *60*  1000 
60  IF(NFLGl)  100*100*112 

100  IF(NTD)  110*110*130 

COMPRESS  MATRICES  DT  AND  BT  BEFORE  STORING  THEM  AS  D 
AND  B. 

110  TDV=0 • 0 
N 1  =0 
N2  =  0 

CALL  MATCO( TDV*N*NF*BT  *N2 *B*N1 *MV*NU*UD ) 

K=  1 

NN2=N*N2 

WR  I  TE ( 92 ' K )  ( B ( I )  *I  =  1*NN2) 

111  TDV  =  0  *0 
N3  =  0 
N4-0 
K=1 

READ ( 73  '  K  )  ( DT ( I  )  *I  =  1»MNF) 

CALL  MATCO ( TD V . M  * NF * DT  * N4 ♦ D ♦ N3  * MV 1 ♦ NU1 * UD 1  ) 

K=  1 

NN4=N*N4 

WRITE (94 ' 1  )  (D( I J  *  1  =  1 *NN4 ) 

112  CONTINUE 

C  TRANFER  AT  INTO  A  AND  CT  INTO  C. 

K  =  1 

READ ( 70 • K  )  { AT (  I  )  ♦ 1  =  1 *NN) 

DO  115  I = 1 *NN 
A  (  I  )  = AT ( I ) 

115  CONTINUE 

WR  I  TE ( 9 1  '  1)  ( A  <  I  )  *1  =  1 *NN ) 

K  =  1 

READ ( 72 ' K  )  ( CT ( I )  *  I  =  1  * MN ) 

DO  120  I = 1 *MN 
C (  I  )  =CT  (  I  ) 

120  CONTINUE 

WRITE (93 • 1  )  (C(I )  *  I  =  1  *  MN ) 
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C 

GO  TO  1000 


130  K=1 

READ ( 60 • K ) (Dl(I) *I=1*NM) 

C  MULTIPLY  D1  BY  CT  AND  DT. 

K=  1 

READ  (72*0  (  CT  (  I  )  .  1*1. MN) 

CALL  GMPRD(D1»CT  *B2»N*M*N) 

K=  1 

WR I TE ( 79 ' K )  (B2(  I  )  *I=1*NN) 

K=  1 

READ( 73 ' K)  ( DT ( I  )  .  I  =  1*MNF ) 

CALL  GMPRD ( D 1 *DT »B3*N*M*NF ) 

C  READ  El  FROM  DISK  AND  ADD  IT  TO  B3. 

K=  1 

READ( 61 ' K )  (El  (  I  )  *  1  =  1  *NNF ) 

CALL  GMADD(B3*E1*B3*N»NF) 

K=  1 

WR  I  TE ( 8  0 1 K )  (B3( I  )  *I=1*NNF) 

IF(NTD-l)  140*140*150 

C  COMPACT  BT  * B3  » B2  INTO  B. 

140  TDV=0 • 0 
N 1  =0 
N2  =  0 
K=  1 

READ( 71  •  K  )  ( BT ( I )  *  I  =  1*NNF ) 

CALL  MATCO( TDV.N  *NF  *BT  *N2  *B*Nl *MV*NU*UD ) 

TDV=TD ( 1 ) 

CALL  MATC0(TDV*N*NF*B3 *N2  *B*N1 *MV*NU*UD ) 

K=  1 

READ ( 79 ' K )  (B2( I )  *I  =  1*NN) 

CALL  MATCO ( TDV * N  * N ♦ B2  * N2 * B * N1 *MV*NU*UD ) 

K=  1 

NN2=N*N2 

WR  I  TE ( 9  2 • K )  ( B (  I  )  *I  =  1*NN2) 

GO  TO  111 

C  READ  D2  FROM  DISK  AND  MULTIPLY  IT  BY  CT  AND  DT. 

150  K  =  1 

RE AD ( 62 ' K )  (D2( I )  *1  =  1*  NM ) 

K  =  1 

READ ( 72 »  K )  <  C  T ( I )  *1  =  1. MN) 
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C 

CALL  GMPRD(D2 »CT *B4*N*M.N ) 

K=1 

WR I TE ( 8 1 ' K ) IB4( I  ) *1=1*  NN  > 

RE AD ( 73  *  1 )  <  DT ( I )  .1  =  1. MNF) 

CALL  GMPRD(D2*DT.B5.N.M.NF) 

C  READ  E2  FROM  DISK  AND  ADD  IT  TO  B5. 

K=  1 

READ( 63 'K  )  ( E 2 (  I  )  .  1  =  1  .NNF ) 

CALL  GMADD(E2»B5»B5»N»NF) 

K  =  1 

WR I TE ( 8  2 ' K ) ( B  5 (  I ) *I=1.NNF) 

I F ( NTD-2 )  160  » 160  *  170 

C  COMPACT  BT  *B3  *B2  *B5  »B4  INTO  B  MATRIX. 

160  TDV=0 . 0 
N 1  =0 
N2  =0 
K  =  1 

READ ( 71 • K  )  ( B  T  <  I  )  .1  =  1. NNF) 

CALL  MATCOITDV.N.NF.BT .N2.B.N1 .MV.NU.UD) 

TDV=TD  I  1  ) 

K=  1 

READ ( 80 ' K  )  (B3(  I  )  *1  =  1. NNF) 

CALL  MATCO(TDV*N*NF*B3*N2*B»Nl*MV»NU*UD ) 

K  =  1 

READ ( 79 • K ) (B2( I ) *I=1.NN) 

CALL  MATCO( TDV*N»N*B2  »N2  *B  »N1 *MV  *NU*UD  ) 

TDV=TD( 2  ) 

K  =  1 

READ ( 82 ' K  )  <  B5 ( I )  *I  =  1*NNF) 

CALL  MATCO( TDV*N»NF*B5  *N2  »B*N1 »MV»NU*UD ) 

K=  1 

READ ( 81 ‘K)  ( B4 (  I  )  *I  =  1.NN) 

CALL  MATC0(TDV*N»N*B4*N2*B*N1 »MV*NU.UD ) 

K=  1 

NN2=N*N2 

WR I TE ( 9  2 • K  )  ( B ( I >  *I  =  1,NN2) 

GO  TO  111 

170  INTD= INTD+1 
GO  TO  2000 

1000  CONTINUE 

I F ( NF LG 2  )  2000*2000.1100 

C  THIS  PART  PROVIDES  AN  INVERTED  MATRIX  USED  IN  THE  NEXT 
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C  LINK. 

1100  CONTINUE 

C  TRANFER  Q2  INTO  A2. 

READ( 76 • 1 )  (Q2 ( I )  ♦  1  =  1  .MM) 

DO  210  1  =  1. MM 
A2 (  I  ) =  Q2  (  I  ) 

210  CONTINUE 

C  MULTIPLY  Q2  BY  CT  AND  CALL  THE  PRODUCT  B3. 

READ( 72 » 1  )  (CT ( I ) *  1  =  1 *MN  > 

CALL  GMPRD(A2.CT  .B3.M.M.N) 

WR  I  TE ( 80 •  1)  ( B3 ( I  )  .1  =  1. MN) 

READ( 52  1  1  )  ( B 1 ( I )  ♦  I  =  1.NM) 

DO  290  1  =  1  . NM 
A2 (  I  ) =B 1 (  I  ) 

290  CONTINUE 

READ ( 80  •  1  )  ( B3 ( I )  *I  =  1.MN) 

CALL  GMPRD(A2.B3.WA3.N.M*N) 

WR  I  TE ( 85 ' 1)  ( WA3 (  I )  .1*1. NN) 

C  SET  UP  A  UNIT  MATRIX  IN  B5. 

DO  350  1  =  1  . NN 
B5 (  I  ) =0.0 
350  CONTINUE 

DO  360  1=1. N 
K= (  1-1 )*N+I 
B5 ( K) =1 .0 
360  CONTINUE 

READ ( 85 • 1 )  ( W A3 ( I  )  .I  =  1»NN) 

CALL  GMSUB ( B5  »WA3 .B5.N ♦ N ) 

CALL  MINV(B5*N*DET .W1.W2) 
IF(ABS(DET)-l.E-06)  30.30.1500 
1500  WRITE(82»  1MB5(I  )*I*1»NN) 

2000  CALL  L I NK ( LAST7 ) 

END 
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THIS  IS  LINK  7  OF  PART  A 


EXTERNAL  WAF2*WAF3 

DIMENSION  A1(100)*B1(150) *C1 ( 1Q0 ) *F ( 150  ) *G(225) *H(150> 
1 *AL(225  )  * 

1AM  (150)  •ALK229)  *D1<150)  *  El  (100)  *D2(l5Q)  *E2(100) 
DIMENSION  UM(225) *AT(100) »BT(100) *CT(150) *DT(150) 

1 *AL2( 225 ) * 

1 AM2 ( 150 ) *Q2(225)  *  A2 ( 225 ) *C2(225) *82(150) • B3 ( 1 50 ) 

1 *B4( 150  )  *B5 ( 100 )  * 

2WA 1 ( 100 ) *  WA2 ( 100 ) 

DIMENSION  A (100) #B(200) *C(150) *D(300) 

DIMENSION  MV(5) *MV1(5) *NU(20) »NU1(20) *UD(20) *UD1(20) 
DIMENSION  WW ( 30  ) *W1 ( 15 ) *W2 ( 15  ) 

DIMENSION  NOP ( 10 ) 

DIMENSION  IDUMK80) 

DIMENSION  RDUMK45) 

DIMENSION  MBLOK( 50) *RBLOK (40) 

DIMENSION  DUMK300)  *DUM2(  22  5)  *DUM3(225) 

DIMENSION  TD ( 5 ) 

COMMON  IDUM1 *RDUM1* MBLOK* RBLOK *DUM1 *DUM2  »DUM3 

EQUIVALENCE  ( IDUM1 (2) iLUNP ) * ( IDUM1 (4) *LUNO) 

EQUIVALENCE  ( IDUM1 ( 5) *N) *  < IDUM1 ( 6  5  *M) ♦ ( IDUM1 (7 ) * NF ) 
EQUIVALENCE  ( IDUM1 ( 8) *N1 ) * ( IDUM1 ( 9) *N2 ) * ( IDUM1 ( 10 ) *N3 ) 
EQUIVALENCE  ( IDUM1 ( 11 ) *N4) * ( IDUM1 ( 13) .NTD ) » ( IDUM1 (15) 

1  *  NPRT Y ) 

EQUIVALENCE  (  IDUMK24)  *NFLG1 )  *(  IDUMK25)  * NFLG2  ) 

1  * (  IDUM1 (26 ) » NFLG3 ) 

EQUIVALENCE  (  IDUMK27)  #IDET)  •  (  IDUMK28)  *  I  NTD  ) 

1  * (  IDUM1 (21 ) * IDISC) 

EQUIVALENCE  ( I DUM1 ( 71 ) » NOP ( 1 ) ) 

EQUIVALENCE  ( MBLOK ( 1 ) *MV( 1 ) ) » ( MBLOK ( 6 ) »MV1 ( 1 ) ) 

1  * ( MBLOK (11) *  NU ( 1 ) ) * 

1 ( MBLOK (31) *NU1 ( 1 ) ) 

EQUIVALENCE  ( RBLOK ( 1 ) »UD( 1 ) ) * ( RBLOK ( 2 1 ) *UD1 ( 1 ) ) 
EQUIVALENCE  (DUM1 (1)*UM(1>*F(1)*H(15#AL(1)*AM(1) 

1 » AL1 ( 1  )  tA2(l) # 

1C2 ( 1 ) *B( 1 ) *D< 1 ) »A( 1 ) *C( 1 ) *D1 ( 1 ) *D2 ( 1 ) ) 

EQUIVALENCE  ( DUM2 ( 1 ) »G ( 1 )  ♦ B 1 ( 1 ) ♦ B2 ( 1 ) • B3 ( 1 )  . B4 ( 1 ) 

1 *B5 ( 1 ) ) 

EQUIVALENCE  ( DUM3 ( 1 ) *CT ( 1 ) *  D  T ( 1 ) t  AL2 ( 1 ) *AM2( 1 ) *Q2 ( 1 ) 

1 *A1 ( 1 ) *  AT ( 1 )  * 

1C1 ( 1 )  »BT ( 1  )  .El ( 1  )  #E2 ( 1 ) *WA1 ( 1  )  * WA2 ( 1 ) ) 

EQUIVALENCE  ( WW ( 1 ) * W1 ( 1 ) ) > ( WW ( 16 ) »W2 ( 1 ) ) 
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EQUIVALENCE  ( RDUM 1 ( 6 ) *  TO ( 1 ) ) 


DEFINE 

FILE 

40(95»10*U 

*  NEXT ) 

DEFINE 

FILE 

91  (  100 

*  2  *U 

*  NX  T9 1 ) 

DEFINE 

FILE 

92 (200 

*  2  *U 

♦NXT92 ) 

DEFINE 

FILE 

93 ( 150 

♦  2  *U 

*NXT93) 

DEFINE 

FILE 

94(300 

*  2  *U 

*  NXT94 ) 

DEFINE 

FILE 

96(420 

*  2  *U 

*  NXT96 ) 

DEFINE 

FILE 

99(160 

*10* 

U  *NXT99 ) 

DEFINE 

FILE 

51 ( 100 

*  2  *U 

*NXT1) 

DEFINE 

FILE 

52(150 

*  2  *U 

*NXT2 ) 

DEFINE 

FILE 

53 ( 100 

*  2  *U 

♦  NXT3 ) 

DEFINE 

FILE 

54(150 

♦  2  *U 

*  NXT4 ) 

DEFINE 

FILE 

55(225 

*  2  *U 

♦  NXT5 ) 

DEFINE 

FILE 

56 ( 150 

» 2  *U 

♦  NXT6 ) 

DEFINE 

file 

57(225 

*  2  *U 

*NXT7) 

DEFINE 

file 

58(150 

* 2  *U 

*  NXT8 ) 

DEFINE 

FILE 

59(225 

♦  2  *U 

.NXT9) 

DEFINE 

FILE 

60 ( 150 

» 2  *U 

*  NXT 1 0 ) 

DEFINE 

FILE 

61 ( 100 

» 2  *U 

*  NXT 1 1 ) 

DEFINE 

FILE 

62(150 

*  2  *U 

*  NXT 1 2 ) 

DEFINE 

FILE 

63 ( 100 

♦  2  *U 

♦NXT13) 

C  DEFINE  MORE  WORKING  MATRICES  ON  DISK  FILES* 


DEFINE 

FILE 

70(100 

*2*U*NXT70) 

DEFINE 

FILE 

71 ( 100 

•  2  *U  *NXT71 ) 

DEFINE 

FILE 

72(150 

*2  *U  *NXT72  ) 

DEFINE 

FILE 

73(150 

*2*U*NXT73) 

DEFINE 

FILE 

74(225 

*2  *U  *NXT74 ) 

DEFINE 

FILE 

75(150 

*2*U*NXT75) 

DEFINE 

FILE 

76(225 

»  2  *U  *NXT76 ) 

DEFINE 

FILE 

77(225 

*2*U*NXT77) 

DEFINE 

FILE 

ie (225 

•2*U*NXT78) 

DEFINE 

FILE 

79 ( 150 

*2*U*NXT79) 

DEFINE 

FILE 

80(150 

♦  2  *U  *NXT80 ) 

DEFINE 

FILE 

81(150 

*2*U*NXT81 ) 

DEFINE 

FILE 

82 ( 100 

*  2  *U  *NXT82 ) 

DEFINE 

FILE 

83 ( 100 

*2*U*NXT83) 

DEFINE 

FILE 

84(100 

*  2  *U  *  NXT84 ) 

DEFINE 

FILE 

85 (100 

*2  »U*NXT85 ) 

MM=M*M 

MN=M*N 

MNF=M*NF 

NM  =  MN 

NN=N*N 

NNF=N*NF 

IFUDET)  90*90*80 
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C 


80  WR I TE ( LUNO  *  8 1 ) 

81  FORMAT ( 1H  *'MATRIX  (I-G)  IS  SINGULAR  —  PROGRAM  STOPS' 
1/) 

CALL  EXIT 

90  IF(INTD)  95*95*92 

92  WRITE (LUN0*93 ) 

93  FORMAT ( 1H  * • TOO  MANY  TIME  DELAYS') 

CALL  EXIT 

95  I  F ( NFLG  3 )  96*96*200 

96  I  F ( NFLG 1 )  100*100*250 
100  I  F ( NFLG2 )  1000*1000*20  0 

200  CONTINUE 


C  TRANFER  Q2  INTO  A2. 

READ! 76 ' 1 )  (Q2 ( I )  *  I - 1 *MM ) 

DO  210  I  =  1  *MM 
A2<  I  )»Q2 (  I  ) 

210  CONTINUE 

C  MULTIPLY  02  BY  DT  AND  CALL  THE  PRODUCT  B2. 

READ<  73  •  1  )  (DT ( I ) *  1*1 *MNF ) 

CALL  GMPRD(A2*DT*B2*M*M*NF) 

C  MATRIX  B2  MUST  BE  A  ZERO  MATRIX. 

DO  220  1=1 *MNF 

I  F ( ABS ( B2 ( I )  )-l.E-06)  2  20*2  20*215 

215  WR I TE ( LUNO *216) 

216  FORMAT ( 1H  ♦' ILLEGAL  POSITION  OF  DERIVATIVE  ACTION') 
CALL  EXIT 

220  CONTINUE 


250  I  F ( NFLG3 )  251  *251  *255 

251  I  F ( NFLG2 )  255  *255*300 
255  CONTINUE 

RE AD ( 74 ' 1  )  ( AL2 (  I  )  *  1  =  1 *MM) 

DO  260  1=1 *MM 
A2 (I  ) -AL2 ( I ) 

260  CONTINUE 

READ ( 72 ' 1 ) ( CT ( I ) *I=1*MN) 
CALL  GMPRD(A2*CT*B2*M*M*N) 
WR  I  TE ( 79 ' 1)  (B2( I ) *I  =  1*MN) 
READ( 73 ' 1  )  (DT ( I )  *  1  =  1 *MNF > 
CALL  GMPRD (A2*DT  *B4*M*M*NF) 
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C 

READ (75*1)  (AM2<  I >  *I=1*MNF) 

CALL  GMADD ( AM2  *B4  *  B4  #M * NF  ) 

WRITEC81 • 1 ) (B4( I > *I=1*MNF> 

I F ( NFLG3  )  270*270#  280 

C  COMPACT  DT  *B4  *B2  INTO  D. 

270  TDV=0*0 
N3  =  0 
N4  =  0 

READ (73*1) ( DT ( I ) *I=1*MNF) 

CALL  MATC0(TDV.M*NF*DT*N4*D*N3*MV1*NU1 *UD1 ) 
TDV=TD ( 1  ) 

READ( 81  *  1  )  ( B4 ( I >  * I=1#MNF ) 

CALL  MATC0(TDV*M*NF*B4#N4»D*N3#MV1*NU1 *UD1 ) 
READ( 79  •  1 )  ( B 2 ( I )  • I = 1 #MN ) 

CALL  MATCO < TDV *M*N*e2  #N4#D*N3 *MV1 *NU1 *UD1 ) 
MN4=M*N4 

WRITE<94» 1) (D(I ) #I=1*MN4) 

280  CONTINUE 

READ( 52 • 1 ) ( B 1 < I )  ♦  I  =  1*NM> 

DO  290  I  =  1  *  NM 
A2( I )«B1 (  I  ) 

290  CONTINUE 

READ (79*1)  (B2(  I  )  tI*l»MN) 

CALL  GMPRD (A2*B2*WA1*N#M*N) 

WR I TE ( 8  3 • 1 ) (WA1(  I ) *I  =  1*NN) 

READ (81*1)  ( B4 ( I ) *1-1 #MNF ) 

CALL  GMPRD (A2  *B4  *WA2*N#M*NF ) 

WR I TE ( 84 • 1 ) ( WA2 ( I ) *I=1*NNF) 

300  CONTINUE 

I F ( NFLG3  )  310*310*320 

310  I  F ( NFLG2  )  311*311*320 

311  TDV=0 • 0 
N 1  =0 

N2  =0 

READ ( 71 • 1 ) (BTC  I)  •I*1*NNF) 

CALL  MATCO (  TDV ♦ N * NF »BT ♦ N2 *B * N1 *  MV . NU * UD ) 
TDV=TD ( 1 ) 

READ ( 84 ' 1 )  ( WA2 ( I  )  *I=1*NNF) 

CALL  MATCO ( TDV #N  *NF*WA2  *N2  *B*N1 *MV*NU#UD ) 
READ( 83  *  1 )  (WA1 ( I  )  *  1  =  1 *NN) 

CALL  MATCO ( TDV * N *N *WA1 *N2 * B *N1 *MV#NU*UD) 
NN2=N*N2 

WR  I  TE ( 92  •  1  )  ( B ( I ) *  I  =  1 # NN2 ) 

GO  TO  1000 
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320  CONTINUE 

READ(  82  *1)(B5U)  »I=1»NN) 

READ (70*1) ( AT ( I ) »I=1*NN) 

CALL  GMPRD ( B5  * AT  #A*N*N*N) 

WR I TE ( 9 1  •  1  ) ( A  < I ) *  I  =  1 *NN ) 

READ ( 7 1  •  1  HBTU) i I*1#NNF) 

CALL  GMPRD(B5*BT  »A2*N*N*NF) 

WR  I  TE ( 7  7  1 1  )  (A2( I)  »I=1#NNF) 

IF ( NFLG3 )  400  *400  *420 
400  DO  410  1=1 *NNF 
El (  I  )*A2( I ) 

410  CONTINUE 
TDV=0 • 0 
Nl  =  0 
N2-0 

CALL  MATC0(TDV»N*NF*E1 *N2*B*Nl*MV*NU*UD) 
NN2=N*N2 

WR  I  TE ( 92 ' 1 ) (B( I ) #1  =  1 *NN2 ) 

GO  TO  450 
420  CONTINUE 

READ( 83  *1 )  (WA1< I  )  *  1=1. NN) 

CALL  GMPRD(B5.WA1*C2*N*N*N) 

WR  I  TE ( 7  8  *  1 ) (C2( I  )  »1=1*NN) 

RE AD ( 84 • 1 )  ( WA2 ( I  )  .I=1»NNF> 

CALL  GMPRD(B5*WA2*D2*N»N*NF) 

WR  I  TE ( 62 ' 1 ) ( D2  < I ) *I=1*NNF) 

C  COMPACT  MATRICES  A2*D2*C2. 

TDV=C.0 
Nl  =  0 
N2  =  0 

READ( 77  •  1  )  ( A 2 (  I  )  #  I  =  1»NNF ) 

CALL  MATCO(TDV*N*NF*A2 *N2  *G*N1 »MV *NU.UD ) 
TDV=TD<1 ) 

READ( 62 • 1 )  (D2 (I )  #  1  =  1  tNNF ) 

CALL  MATCO(TDV*N#NF*D2*N2»G*Nl*MV*NU#UD> 
READ( 78  *  1 )  ( C 2 ( I )  •  I  =  1*NN) 

CALL  MATC0(TDV#N*N*C2*N2*G*N1 *MV*NU»UD) 

C  TRANFER  G  INTO  B. 

NN2=N*N2 
DO  430  I  =  1  * NN2 
B (  I  ) =G ( I) 

430  CONTINUE 

WR I TE ( 9 2 ' 1  )  <B< I )  *  I  =  1 *NN2  ) 


450  CONTINUE 
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READ (80*1) (63(1) *I=1*MN) 

READ ( 9 1 'l)IA(I) »  I = 1 *NN ) 

CALL  GMPRD(B3*A*AL2*M#N»N) 

ADD  CT  TO  AL2. 

FIRST  TRANSFER  AL2  TO  G# 

DO  460  I = 1 *MN 
G ( I ) = AL2  (  I  ) 

460  CONTINUE 

READ ( 72 ' 1  )  ( CT (  I  )  *I=1*MN) 

CALL  GMADD (G.CT*CfM*N) 

WR I TE ( 9 3  *  1  )  ( C (  I  )  t  I  =  1 »MN ) 

READ ( 80 1 1)  (B3( I ) »I=1*MN) 

READ ( 77 • 1  )  ( A2 ( I  )  •  1*1 »NNF ) 

CALL  GMPRD(B3»A2»AM2»M»N>NF) 

ADD  DT  TO  AM2 • 

FIRST  TRANSFER  AM2  TI  G* 

DO  470  1=1 »MNF 
G  < I ) = AM2 (  I  ) 

470  CONTINUE 

READ ( 73  1  1  )  ( DT ( I ) >I=1*MNF) 

CALL  GMADD<G*DT*G*M*NF ) 

I F ( NFLG3  )  500*500*510 

C  COMPACT  C  INTO  D. 

500  TDV=0.0 
N3  =  0 
N4  =  0 

CALL  MATCO(TDV*M*NF*G*N4*D*N3 *MV1 *NU1 *UD1 ) 
MN4=M*N4 

WR  I  TE ( 94 ' 1  )  ( D ( I )  #1  =  1 •  MN4 ) 

GO  TO  1000 

510  WRITE(55'1)  ( G < I ) *1  =  1 *MNF ) 

READ( 80 ' 1  )  (B3 ( I  )  »  1  =  1 *MN) 

READ( 78 ' 1  )  (C2 (  I  )  *I=1*NN) 

CALL  GMPRD(B3*C2*AL2*M*N*N) 

C  ADD  B2  TO  AL2 • 

READ( 79  *1)  <B2(I)  #1  =  1 #MN ) 

CALL  GMADD(B2*AL2*B2*M*N) 

WRITE  (79  •  1  XB2(  I  )  *  1  =  1  *MN) 
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C 

READ( 80  ‘  1  )  (B3 (I  )  ♦  1  =  1 *MN) 

READ (62*1)  (D2< I ) *I*1*NNF) 

CALL  GMPRD!B3*D2*AL2*M*N*NF) 

C  ADD  BA  TO  AL2  • 

READ( 81  '  1  )  ( 84 ( I )  *  1*1 *MNF J 
CALL  GMADD  <  B4  * AL2  *  B4  *M  * NF ) 

WRITE (81 ' 1 ) (B4( I  )  • 1*1 iMNF ) 

C  COMPACT  G  *  B4  *  B2  INTO  D. 

TDV  =  0 • 0 
N3  =  0 
N4  =  0 

RE AD ( 55  *  1  )  ( G (  I  ) *  I*1»MNF> 

CALL  MATCO( TDV ♦ M  ♦  NF *G * N4 ♦ D * N3  *MV1 *NU1 *UD1  ) 

TDV=TD ( 1 ) 

RE AD ( 81  •  1)  (B4( I )  *I*1*MNF) 

CALL  MATC0!TDV*M*NF*B4*N4*D»N3  *MV 1  *  NU1 *UD1) 

READ! 79  » 1 )  (B2 ( I )  * I*1»MN) 

CALL  MATC0(TDV*M*N*B2»N4*D»N3*MV1»NU1»UD1) 

MN4=M*N4 

WRITE(94«1)  (D( I )  *I=1*MN4) 

1000  CONTINUE 

DECIDE  IF  THE  USER  WANTS  TO  OUTPUT  THE  FINAL  MATRICES 
AND  VECTORS. 

IF(IO-NPRTY)  1010*1010*1500 
1010  CONTINUE 

READ ( 9 1  *  1  )  A 
WRITER  LUNP  *  10 15 ) 

1015  FORMAT ( 1H0*50X* ‘MATRIX  A'/) 

CALL  MATPR <N*N*A *WW*LUNP> 

RE AD ( 92 ' 1 )  B 
WRITE (LUNP*1020 ) 

1020  FORMAT ( 1H0*50X*  *  MATRIX  B'/) 

CALL  MATPR ( N ♦ N2 ♦ B * WW * LUNP ) 

RE AD ! 93 ' 1 )  C 
WRITE! LUNP  *1025 ) 

1025  FORMAT! 1H0*50X* 'MATRIX  C • / ) 

CALL  MATPR(M*N*C *WW*LUNP) 

READ ( 94 ' 1  )  D 
WRITE (LUNP*1030 ) 

1030  FORMAT! 1H0*50X. 'MATRIX  D ' / ) 

CALL  MATPR ( M * N4 ♦ D * WW * LUNP ) 
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1035 

1040 

1045 

1050 

1055 

1060 


WR  I  TE ( LUNP  *1035 
FORMAT ( 1H0  * 50X ♦ 
WRITE ( LUNP. 1040 
FORMAT ( 1H0  * 50X  * 
WRITE (LUNP.1045 
FORMAT ( 1H0  »  50X  * 
WRITE(LUNP.1050 
FORMAT ( 1H0  » 50X  * 
WRITE! LUNP  *  1 055 
FORMAT ( 1H0.50X. 
WRITE! LUNP  *  1060 
FORMAT ( 1H0  *  50X  • 


)  (MV (I 

)  .  1  = 

1  *N1 ) 

*  MV  * / 5 I 

20) 

)  ( NU ! I 

)  .  1  = 

1  »N2  ) 

•NU‘/20 

15) 

)  (  UD  (  I 

)  .  1  = 

1  *N2  ) 

*  UD  * / 10 

E  1 2  • 

4  ) 

)  ( MVl ( 

I  )  .1 

=1 »N3 ) 

*  MV1 • /5 

120) 

)  (NUl! 

I)  *1 

* 1 ♦ N4 ) 

• NUl ‘/2 

015  ) 

)  (UD1! 

I  )  .  I 

=1 »N4 ) 

' UD1 ‘ /I 

0E1 2 

.4) 

1500  CONTINUE 


CHECK  IF  VECTOR  MVl(I)  IS  ZERO  IN  ORDER  TO  RESET 
OPTION  NO. 7. 


I  SEE*  0 

DO  1510  I = 1 ♦ N3 
I  SEE* I SEE+MV1 ( I J 
1510  CONTINUE 

I F ( I  SEE  )  1520*1520.1540 
1520  NOP (  7  )  =  1 
1540  CONTINUE 


CHECK  IF  SPECIAL  ENTRIES  ARE  GIVEN  HENCE  CONTINUATION 
IS  DESIRED. 

IF(IDISC)  1550.1550.1600 

1550  WRITE (LUN0.1551 ) 

1551  FORMAT ( 1H  .‘PROGRAM  STOPS  AS  NO  DISTURBANCE  HAS  BEEN 
1  GIVEN*/) 

CALL  EXIT 


C  CONTINUATION  IS  DESIRED. 

1600  CONTINUE 

C  IF  THERE  IS  A  PURE  TIME  DELAY  SET  NTD  TO  1 

IF(NFLGl)  1650*1650.1640 
1640  NTD= 1 
1650  CONTINUE 

CALL  LINK! WAF2  ) 

END 
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THIS  IS  LINK  1  OF  PART  B 


EXTERNAL  WAF2*WAF3 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


I W ( 25  )  ♦  RW ( 50  ) ♦ I ALPH ( 1 ) 

A (100)  *  B ( 200 ) *C ( 1 50  ) *D(30Q) 

MV(5) *MV1(5) *NU(20) *NU1(2Q) *UD(20) *UD1(20) 
TD  (  5  ) 

NY ( 15 ) *NOP( 10 ) 

IDUMK80) 

RDUM1 ( 45 ) 


DIMENSION  MBLOK( 50) * RBLOK ( 40 ) 
DIMENSION  RTEMP ( 300 ) 


COMMON  IDUMl*RDUMl*MBLOK*RBLOK*RTEMP 


EQUIVALENCE  (  IDUMK3)  *LUNI  )  ♦  (  IDUM1U)  *LUNO)  ♦  <  IDUMK5) 
1  *N  ) 

EQUIVALENCE  ( IDUM1 (6) *M) * ( IDUM1 ( 7) *NF) * ( IDUM1 (8 ) *N1  ) 
EQUIVALENCE  ( IDUM1 (9) *N2) * ( IDUM1 (  10)  *N3  )  ♦  ( IDUM1 ( 11 ) 

1  ♦  N4  ) 

EQUIVALENCE  (  IDUMK12)  *N5) *(  IDUMl (13)  *NTD)*<  IDUMl  (  15  ) 
1  *  NPRT Y ) 

EQUIVALENCE  (  I DUM 1 ( 36 )  *  I N YFG ) 

EQUIVALENCE  ( IDUMl (18) *JOBNO) *( IDUMl (2) »LUNP) 
EQUIVALENCE  ( IDUMl (46 ) *  NY ( 1 ) )  * ( IDUMl ( 71 ) »NOP( 1 )  ) 
EQUIVALENCE  ( RDUM1 ( 6 ) »  TD ( 1 )  ) 

EQUIVALENCE  ( MBLOK ( 1 ) #MV( 1 ) ) . ( MBLOK l 6 ) »MV1 ( 1 ) ) 

1 » ( MBLOK (11) *  NU ( 1 )  ) ♦ 

1 (MBLOK ( 31 ) *NU1 ( 1 ) ) 

EQUIVALENCE  ( RBLOK ( 1 ) »UD( 1 ) ) * ( RBLOK ( 21 ) *UD1 ( 1 ) ) 
EQUIVALENCE  ( RTEMP ( 1 )»A(1)*B(1)*C<1)*D(1)) 

DEFINE  FILE  40 ( 95  *  10 »U # NEXT ) 

DEFINE  FILE  9 1 ( 1 00 ♦ 2 »U *  NX T9 1 ) 

DEFINE  FILE  92 ( 2 00 » 2 *U * NXT92 ) 

DEFINE  FILE  93 ( 1 50  *  2 *U * NXT93 ) 

DEFINE  FILE  94 ( 3 00  *  2 #U *NXT94 ) 

C  REQUEST  TO  ENTER  DATA  IF  INPUT  VIA  TYPEWRITER# 

I  SEE  =  0 

IF(LUNO-LUNP)  20*10*20 
10  I  SEE- 1 
20  CONTINUE 


I  F (  I  SEE )  504*504*506 
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C 

504  CONTINUE 
WRITE(LUNO*5Q5) 

505  FORMAT ( 1H  * ' ENTER  N  M  NF ’ / ) 

506  CONTINUE 

CALL  TWAIT 
NR=-1 

CALL  FFIOR ( IW*RW  *  IALPH*NI * NR ♦ NA * LUNO ♦ LUN I J 
N=  I W ( 1  ) 

M*  I W ( 2 ) 

NF* I W ( 3 ) 

I F ( I  SEE )  508  *508  *511 
508  CONTINUE 

WRITER  LUNO  *510) 

510  FORMAT  < 1H  *  *  ENTER  NUMBER  OF  TIME  DELAYS’/) 

511  CONTINUE 

CALL  TWAIT 
NR*-1 

CALL  FF I  OR ( I W * RW *  I ALPH ♦ N I  * NR  * NA ♦ LUNO *LUN I ) 

NTD* I W ( 1 ) 

IF  NTD  =  0  THEN  VECTORS  MV  * NU *UD . MV1 » NU1 *UD 1  ARE  SET  BY 
THE  PROGRAM* 

IN  SUCH  A  CASE  THE  FORCING  FUNCTION  VECTORS  U  AND  V 
ARE  IDENTICAL. 

IF(NTD)  520*520*600 
520  N 1 = 1 
N2  =  NF 
MV ( N1 ) *N2 

DO  530  I  =  1  * N2 
NU (  I ) *  I 
UD(I ) =0.0 
530  CONTINUE 

IF(NOPm-l)  700*700*540 
540  N3  =  1 
N4  =  NF 

MV  1 ( N  3 ) =N4 
DO  550  1  =  1  * N4 
NU 1 ( I ) = I 
UD1  ( I )=0.0 
550  CONTINUE 
GO  TO  700 
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C 

600  CONTINUE 

I F ( I  SEE  )  609*609.611 

609  CONTINUE 
WRITE(LUNO*610) 

610  FORMAT ( 1H  *  *  ENTER  VECTOR  MV(N1)'/) 

611  CONTINUE 

CALL  TWA  I T 
NR  =  -1 

CALL  FFIOR(MV.RW* IALPH.N1 *  NR . NA * LUNO . LUN I ) 

I  F (  I  SEE )  619*619.621 

619  CONTINUE 
WRITE! LUNO  *620 ) 

620  FORMAT ( 1H  *  *  ENTER  VECTORS  NU(N2)  AND  UD(N2)'/) 

621  CONTINUE 

CALL  TWA  I  T 
NR  =  -1 

CALL  FFIOR(NU*UD* IALPH*N2  *  NR  * NA . LUNO * LUN I ) 

I F ( NOP ( 7 ) - 1 )  700*700.640 

640  I F ( I  SEE  )  641.641  *651 

641  CONTINUE 
WRITE(LUN0*650) 

650  FORMAT ( 1H  .'ENTER  VECTOR  MV1 ( N3 ) ' / ) 

651  CONTINUE 

CALL  TWA  I T 
NR--1 

CALL  FFIORIMV1.RW* I ALPH * N 3 *NR *NA . LUNO . LUN I ) 

I F (  I  SEE  )  659*659*661 

659  CONTINUE 
WRITE (LUN0.660) 

660  FORMAT  (  1H  *•  ENTER  VECTORS  NU1  (  N4  )  AND  UDKN4P/) 

661  CONTINUE 

CALL  TWAIT 
NR  =  -1 

CALL  FFIOR !  NU1 *UD1 * IALPH*N4*NR*NA*LUN0*LUNI ) 

700  MTVPE=0 
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I F (  I  SEE  )  702.702*710 
702  CONTINUE 

WRITE(LUN0.705) 

705  FORMAT ( 1H  .'ENTER  MATRIX  A  COLUMNWISE'/) 

710  I  CT= 1 

MT YPE=MTYPE+1 

CALL  TWAIT 


720  NR=-1 

CALL  FF I  OR ( I W *RW *  I ALPH .NI . NR *NA . LUNO .LUN I ) 
Kls ICT  +  NR-1 
DO  770  K*ICT.K1 
KK=K-ICT+1 


GO  TO  (730.740.750.760 ) .MTYPE 

730  A ( K ) =RW ( KK ) 

GO  TO  770 
740  B ( K ) *RW ( KK ) 

GO  TO  770 
750  C ( K ) =RW ( KK ) 

GO  TO  770 
760  D ( K ) =RW ( KK ) 

770  CONTINUE 

ICT= I CT+NR 

GO  TO  (810.820.830*840 ) .MTYPE 
810  IF ( ICT— N*N )  720.815.815 

815  WR  I  TE ( 9 1 • 1 )  A 

I F (  I  SEE )  816.816.710 

816  CONTINUE 

WR  I  TE ( LUNO .818) 

818  FORMAT (1H  .'ENTER  MATRIX  B  COLUMNWISE'/) 
GO  TO  710 

820  IF(ICT-N*N2)  720*825.825 

825  WRITE (92 • 1 )  B 

I  F ( NOP ( 7 ) -1 )  900.826.826 

826  I  F ( I  SEE )  827.827.710 

827  WR I TE ( LUNO .828) 

828  FORMAT (1H  .'ENTER  MATRIX  C  COLUMNWISE'/) 
GO  TO  710 

830  I  F (  I C  T-M*N )  720.835.835 
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C 

835  WRITE  <93 ' 1 )  C 

I F ( NOP ( 7 ) - 1 )  900  #900  *836 

836  I  F ( I  SEE )  837*837*710 

837  WR I TE ( LUNO *838 ) 

838  FORMAT ( 1H  *  '  ENTER  MATRIX  D  COLUMNWISE'/) 

GO  TO  710 

840  IF(ICT-M*N4)  720*670*870 
870  WR I TE ( 94 ' 1 )  D 

900  WR I TE ( LUNO  *910)  JOBNO 

910  FORMAT ( 1H  */lX*'END  OF  INPUT  DATA  FOR  JOB  NUMBER* *15/) 

IF(INYFG)  920*920*950 
920  N5=M 

DO  925  I  =  1  * N5 
NY ( I ) -  I 
925  CONTINUE 

950  CONTINUE 

CALL  L I NK ( WAF 2 ) 

END 
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THIS  IS  LINK  2  OF  PART  B 


EXTERNAL  WAF3 

DIMENSION  NOP (10) #NCODE(10) »NY ( 1 5 ) » VD1 ( 1 0  )  * VD2 ( 10 ) 

1 >X( 10) *TD(5 ) 

DIMENSION  MV(5)  .MV1(5)  .NU(20)  .NUK2Q)  »UD(20)  .UD1(20) 
DIMENSION  A (100)  .8(200) tC(  150)  .D(300) 

DIMENSION  RV ( 20 ) 

DIMENSION  IDUMK80) 

DIMENSION  RDUMK45) 

DIMENSION  MBLOKt 50) .RBLOK(40) 

DIMENSION  RTEMP ( 300 ) 

COMMON  IDUM1 .RDUM1 .MBLOK . RBLOK . RTEMP 


EQUIVALENCE  ( IDUM1 ( 1 ) *  LUNR ) . ( IDUM1 (2 ) .LUNP) 
1  * ( IDUM1 ( 3 )  .LUNI ) 


( I DUM 1(4) » LUNO )  * ( IDUM1 ( 5 ) .N)  .  ( IDUM1 (6 ) 

(  IDUMK7)  tNFJ  *(  IDUM118)  *N1)  *(IDUM1(9) 

( IDUM1 ( 10 ) »N3 ) » ( IDUM1 ( 11 ) *N4) * ( IDUM1 ( 12 ) 


EQUIVALENCE 
1  »M  ) 

EQUIVALENCE 
1.N2) 

EQUIVALENCE 
1  *N5) 

EQUIVALENCE  (  IDUMK13)  *NTD)  »(  IDUMK14)  .NPTS) 

I  # (  IDUM1 ( 15 ) .NPRTY) 

EQUIVALENCE ( IDUM1 ( 18 ) * JOBNO) . ( IDUM1 ( 30 ) .MAXOP) 
EQUIVALENCE  (  IDUM1 (19)  .NUPOP)  .  ( IDUM1 (41 )  .NJOBS) 
EQUIVALENCE  (  IDUM1 ( 46 )  . NY ( 1  )  )  ♦ ( IDUM1 (61 ) .NCODE( 1 )  > 

1 » (  IDUM1 ( 71 ) .NOP 

II  )  ) 

EQUIVALENCE  ( RDUM1 ( 1 ) .CRIT) ♦ ( RDUM1 ( 2 ) .TO) . ( RDUM 1(3) 
1 *DELT ) 

EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 


( RDUM1 (4) .DELTH) 

( RDUM 1(6) »TD( 1 ) ) 

(RDUM1 ( 11 ) . VD 1 ( 1 ) ) 

(RDUM1 ( 21 )  * VD2 ( 1 )  ) . ( RDUM1 ( 31  )  »X( 1 )  ) 
( RBLOK ( 1 )  » UD  (  1  )  )  ♦  (RBLOK (21  )  »UDKl)  ) 
(  MBLOK  (  1  )  *MV  (  1  )  )  »  (  MBLOK  (  6  )  »MV1  (  1  )  ) 


EQUIVALENCE 
1  .  ( MBLOK ( 1 1 ) *NU( 1 )  ) . 

1 ( MBLOK ( 31 ) ♦ NU 1 ( 1 ) ) 

EQUIVALENCE  ( RTEMP ( 1 ).All).B(l).C(l).D(l)) 


DEFINE  FILE  40 ( 9 5  *  1 0 .U . NEXT ) 
DEFINE  FILE  9 1 ( 1 00 . 2 >U » NX T 9 1 ) 
DEFINE  FILE  92 ( 200 . 2 *U .NXT92 ) 
DEFINE  FILE  93 (  1 50 . 2 »U » NX T93 ) 


♦'  C  : 


J 


3 


30  s  mi j  ai  ciht 


3  £  w  j  A  *  ■•'  .1 T  x  I 


- ;  [ 0 V •  I  *101)  » ( 0 

(  >  )  T  .  i  1  )  X  » 

iou*  i  r  u  *  t  iii  '*  .v  *  u  ;  jy  /<  ic 

U  )  v  i  *  (  J  c  )  J «  {  C  0  S  )  '■  «  (  I)A  Oie/'^IO 

(O'.  JVfl  00 1  1  0 

{ cr. )  men  Jiai"3Mi : 

{  c  ^ )  i  •  ;C>'  ttCl  a  •’  DIC 

(Of>)>cj-«*  (  .'C  ?  ■  v:  •  *  ■  r“ 

( oo *■  )  ‘-v  i  n-!  /• . .  a/. 3  ‘ :  •: 


i  *  >  *  i  *  -  " 


(  *  ,  •  )  i  'Uoi  ;  *  (>  /UJ*  mi  JC  i  )  3  :  J  JAVIUO 

(  i:  '  U_  *  (  £  )  D  •  !■!.  I  )  *  I 

i  .  5  .  ..  ■  ]  i ; .  i  -  *  i  a ;  i  *  u  i  ) «  u,.  <  •• .  #  i  •' ;  ■  i )  a  *  -  a  v  :  jo  •• 

(  V  . 


(  .  .  ) I ) * { 3tf • < t ) I MU 

i  )  • «  .  ) *  .  .  I  > «  ♦  t  i )  I 


.0/3  JAV  I  JO  3 

javI’jc  3 
m  •  i 


(  £  T  G  Z  «  (  •  .  )  I  I  .  «  (  :  /.  e  (  £  i  I  i  »  0  V  .1 J  V  I  U C  3 

(V  •  A  .  (  J  I  )  I V. .  ■  ,  I  )  ,  X 

»  .  JO  I  ) «  1  •  8  ) 

JQI ) « (  . ( :  t .  AVIU03 

.  \Qi  Jo *•  j  3)  I  0  I)  -  (  v  I  5  Y.  «  i  oA  )  i  J  C  I  )  ..  :  JAV  ;  JO.-. 

<  ♦  (  >  :  •  lT  !  )  f  I 


(UI 

i  )  >0  )•(  t  *  t  •;  i  i  uo  - >  *  i  ri*o«  (  D  lvv  c  )  o;  .javiu.  i 

(  T.  - 

(  L  T  J.,  .  <  .  )  I  VO  ■  :.!AVIUC 

(UK.3ld)  IM  U*  V  A3  JAV  I 

I  <I>  I CJV  ♦  (  1 1  >  I  ML  C )  IO/  3  JAV  I  UO  1 
■  ■ .  .  OV* (IS) 

l  ( 1  i  i  !  •  .  ;  >0  J  ■ .  <  *  (  (  Li  *  (  i  )  >  J  >  3D  A  \\  I ;  ■ 

(  (  I  )  1 V  '♦(-.)>(.  J  j  ♦((.)  V  *  (  I  )  J  A-.-  )  0  :  1 A  V  1  ’  •  ) 

♦  (  (  I )  u*  *  ( 1 1  )  >o  J‘  v  )  •  . 

( ( i )  i !.,/*  ( i  ►:  >  ;i(.  j  -  v )  : 

(  (  ,  )  0*  m  J*  (  I  >tu  (  I  I  A*  (  X  )  £3V,  * T >■  5  31 A  ■  JAVIU03 


« U*  0  X  i 
• .  « .  »  . 

{  i  •  ,  *  ■  Q I.  D  S  "I 

(  :  /  A  *  U  *  S*  a  i  )  L'V  *JI  '  •  I 


n  n 


E 


65 


C 

DEFINE  FILE  94 ( 3  00 • 2 *U *  NX T94 ) 

C  BYPASS  THIS  LINK  IF  NPRTY  IS  LESS  THAN  3 

IF(3~NPRTY)5*5*500 
5  CONTINUE 

K=NOP ( 1 ) 

I  F  <  K )  10*10.20 

10  WRITE (LUNP.ll ) 

11  FORMAT (1H  *///20X* ’BLOCK  DIAGRAM  INPUT’//) 
GO  TO  30 

20  WRITE (LUNP. 21 ) 

21  FORMAT ( 1H  *///24X* ’MATRIX  INPUT’//) 

30  CONTINUE 

WR  I  TE ( LUNP  *40 )  K * JOBNO * NPRT Y . LUN I *LUNO 
40  FORMAT ( T2 *’ INPUT  MATRIX  FLAG*. . 


1 *1 10/T2 * ’JOB 

1UMBER . . * . •  .  I  10/ T2* ’PRIORITY 

1  NUMBER  FOR 

2RINTING  OUTPUT..*.. • • 1 10/ T2 ♦ ‘ LOG  I  CAL  UNIT  NUMBER  FOR 
1  INPUT  DEVICE 


3...’ » I10/T2*'LOGICAL  UNIT  NUMBER  FOR  OUTPUT  DEVICE... ‘ 
1*110/) 

DO  50  1  =  1* MAXOP 
WRITER  LUNP  »  55 )  I.NOP(I) 

5  5  FORMAT (T2» • OPT  I  ON .. ’ *  I  2 *’••••••••• • 

1 . . . •  *110) 

50  CONTINUE 

WRITER  LUNP  *  77 ) 

VCRIT=10.0**(-CRIT)*100.0 
WRITE ( LUNP *60 )  VCR  I T *  TO  * DELT * DELTH ♦ NPTS 
60  FORMAT ( T2  * ’ ABSOLUTE  CRITERION  VALUE  (PER  CENT).....' 

1  *F10.4/T2  .  ' IN 

1TIAL  TIME  VALUE . ’  *F  10 .4/T2  ♦  •  T  IME 

1  INTERVAL... 

. . . . ’  *  F10.4/T  2  .  '  TIME 

1  SUBINTERVAL . 

3 . '  *F10.4/T2*  'NUMBER  OF  TIME 

1  INTERVALS . . 

4/  ) 

DO  75  I  =  1  * N 

WRI TE (LUNP.70 )  I  * X  < I ) 

70  F0RMAT(T2* ' INITIAL  STATE  VAR  I  ABLE . . ' *  I  2 

1  .  ' . •  *  F 1 0 . 4  ) 
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75  CONTINUE 

WRITE (LUNP. 77 ) 

DO  90  I  =  1 » N5 

WRITE!  LUNP  .8  5)  I.NY(I) 

85  FORMAT(T2. 'DESIRED  OUTPUT/STATE  VAR  I  ABLE  .  .  '  *  I  2 

1.' . '  *110) 

90  CONTINUE 

WRITE! LUNP  *77) 

WRITE! LUNP  » 100  )  NUPOP.NJOBS 

100  FORMAT(T2» 'UTILITY  PROGRAM  NUMBER  •  . . . . .' 

1 . I 10/T2 ♦ 'NUMB 

1R  OF  JOBS •••••••  * . . . . 

DO  110  I  =  1 *NF 

WRITE (LUNP *105)  I.NCODE! I ) *VD1 ( I ) >VD2( I ) 

105  F0RMAT(T2. 'DIST.  •  •  .12.  •  C0DE..'»I2>«  1ST  PAR..' 

1 .F10.4 . •  2ND  PA 

1..  •  .F10.4) 

110  CONTINUE 

WRITE (LUNP. 120) 

120  FORMAT <1H  ♦  / / /T 11 .  • COEFF I C I  ENT  MATRICES  OF  THE  STATE 
1  EQUATION' /T2 
1  *  AND  RELATED  DATA'//) 

WRITE (LUNP. 130)  N.M.NF.NTD 

130  F0RMAT(T2* 'NUMBER  OF  STATE  VARIABLES . • 

1 *1 10/T2 . 'NUMB 

1R  OF  OUTPUT  VARIABLES . 1 10/T2  *' NUMBER  OF 

1  EXTERNAL  F 

2RCING  FUNCTIONS.... • . I 10/T2 NUMBER  OF  TIME 
1  DELAYS . 

3.. . » . 110/) 

WRITE (LUNP. 140)  MV ( 1 ) 

140  FORMAT ( T2 » 'NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN 
1  U!T)  '  .12) 


I F ( Nl-3 )  180.150.150 
150  DO  160  I  - 2  * N  1  *  2 
11=1+1 

WRITE! LUNP  .170)  MV ( I ) . MV (II) 

170  FORMATU2*  'DELAYED  EXTERNAL  FORCING  FUNCTIONS 
1  I  N* . • U ( T  )  '  . I  2 / T 

1. 'DELAYED  STATE  VARIABLES  IN 
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C 

160  CONTINUE 
180  CONTINUE 


WRITE! LUNP  *  77 ) 

77  FORMAT ( 1H  ) 

DO  200  I = 1 »N2 

WRITE! LUNP  *  190 )  NU ( I ) *UD (  I ) 

190  FORMAT ( T2 * 'VARIABLE  IN  U ( T )....'* 1 2 *‘... DELAY 
1  VALUE. . . . ' *  F 10 • 4 ) 

200  CONTINUE 

WR  I  TE ( LUNP  » 77 ) 

I F ( NOP ( 7 ) -1 )  280.280*210 
210  WRITE! LUNP .215)  MVl(l) 

215  FORMAT(T2. 'NUMBER  OF  EXTERNAL  FORCING  FUNCTIONS  IN 
1  V ( T )  ' .12) 

I  F ( N3-3 )  250.220  *220 
220  DO  230  1-2. N3» 2 
11=1+1 

WRITER  LUNP  *225 )  MV 1 (I )  . MV  1 ( 1 1 ) 

225  FORMAT(T2. 'DELAYED  EXTERNAL  FORCING  FUNCTIONS 
1  I N. • • V ( T  )  * ♦ 1 2 / T 

1. ‘DELAYED  STATE  VARIABLES  IN . V  (  T  ) 

1.12) 

230  CONTINUE 
250  CONTINUE 

WRITE (LUNP.77 ) 

DO  270  1  =  1. N4 

WRITE(LUNP.260)  NUKI).UDl(I) 

260  FORMAT(T2. 'VARIABLE  IN  V ( T  )••••'.  I  2 »'... DELAY 
1  VALUE.... ' ♦ F 10 • 4 ) 

270  CONTINUE 
280  CONTINUE 

READ( 91  ‘1)A 
WRITE! LUNP  *300 ) 

300  FORMAT ( 1H  . /T 27 ♦ • MATR I  X  A'/) 

CALL  MATPR(N.N.A.RV.LUNP) 

READ ( 92 ‘ 1 ) B 
WRITE! LUNP . 320 ) 

320  FORMAT ( 1H  ♦ /T27 ♦ « MATR I  X  B‘/) 

CALL  MATPR(N*N2*B*RV»LUNP) 

I F ! NOP ( 7 ) -1 )  500.350.350 
350  WRITE (LUNP. 360) 

360  FORMA T ( 1H  . /T27 . • MATR I  X  C ' / ) 
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C 

READ*  93 ' 1)C 

CALL  MATPR*M*N*C *RV»LUNP> 

I F  *  NOP  (  7  )  -D  500  » 500  *400 
400  WRITE*  LUNP  *410 ) 

410  FORMAT ( 1H  ♦  /  T27  * 'MATRIX  D‘/) 

READ*  94  •  1  )  D 

CALL  MATPR ( M * N4 * D * RV ♦ LUNP ) 

500  CONTINUE 

C  READ  MATRIX  A  INTO  COMMON  BEFORE  MOVING  TO  NEXT  LINK* 

READ  (  91  ‘DA 
CALL  L I NK ( WAF3 ) 

END 
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C 


C 


THIS 


IS  LINK.  3  OF  PART  B 


EXTERNAL  WAF4 


DIMENSION  A ( 1 00 ) 

DIMENSION  EVR ( 10 ) *EVI ( 10 ) 

DIMENSION  WORK1 !  100  ) *WORK2 ( 10 ) .WORK 3! 11 ) *W0RK4( 11 ) 
1 *WORK5 ( 11 ) ♦ 

1 WORKS (11) 

DIMENSION  IDUMK80)  *RDUM1(45)  *MBLOK(50)  *RBLOK(40) 

1 .RTEMP! 300  )  ♦ 

1 RW ! 40 ) 

DIMENSION  NOP ( 10  ) 


COMMON  IDUM1 *RDUM1 *MBLOK * RBLOK • RTEMP • I W ( 10)  *RW 


EQUIVALENCE 
1 *EVI ! 1 >  ) 
EQUIVALENCE 
1  * NPRT Y  ) 
EQUIVALENCE 
EQUIVALENCE 
1 ♦ (  IDUM1 ( 71  ) 
EQUIVALENCE 


( A ( 1 ) *  RTEMP ( 1 )  ) * (RW< 1  )  * EVR ( 1 )  )  ♦  <  RW( 11  ) 

(  IDUM1 (2) #  LUNP ) * ( IDUM1 C  5 ) *  N ) *  C IDUMl (  15  ) 
( IDUMl (4) *LUNO) 

( IDUMl (44 ) ♦ MPSFG ) . ( IDUMl (45 ) .MEVCT ) 

NOP ( 1 ) 

<  RTEMP! 101 ) *WQRK1 ( 1  )  ) 


M  E  V  C  T  =  0 
MPSFG=Q 


DECIDE  ABOUT  OPTION  2. 


I F  <  NOP ( 2 )  )  100*100.50 
50  CONTINUE 


THE  RUNGA-KUTTA  METHOD  IS  CALLED  IN  TO  INTEGRATE 
DIRECTTLY  THE  SYSTEM  OF  DIFFERENTIAL  EQUATIONS. 

AT  THIS  POINT  A  CALL  WILL  BE  INSERTED  TO  A  SPECIAL 
PROGRAM  THAT  FINDS  THE  TIME  DOMAIN  SOLUTION  OF  THE 
MATRIX  DIFFERENTIAL  EQUATION. THE  PROGRAM  WILL  END 
WITH  A  CALL  L I NK ( WAF8 ) . THE  C-H  TECHNIQUE  IS 
ENTIRELY  BYPASSED. PRESENTLY  THE  FOLLOWING  STATE¬ 
MENT  IS  PRINTED  OUT. 

WRITE! LUNP  *51) 

51  FORMAT ( 1H  » 1 RUNGA-KUTTA  METHOD  FOR  DIRECT  INTEGRATION 
1  NOT  IMPLEME 
1  TED ' /  ) 

CALL  EXIT 
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C 


100  CONTINUE 

C  DECIDE  ABOUT  OPTION  3. 

I F ( NOP ( 3  )  )  120*120*110 
110  CONTINUE 

A  FLAG  IS  SET  AT  THIS  POINT  FOR  PROPER  ENTRY  TO  LINK 
WAF5  • 

MPSFG=99 
CALL  LINK  (WAF5) 

120  CONTINUE 

C  DECIDE  WHICH  METHOD  MUST  BE  USED  TO  FIND  EIGENVALUES* 

C  EACH  METHOD  WILL  CONSIST  OF  A  NUMBER  OF  SUBROUTINES 

C  MENTIONED  IN  LOCAL  CONTROL  CARDS. THE  INPUT  COMMON  TO 

C  ALL  METHODS  IS  THE  COEFFICIENT  MATRIX  A  *  THE  COMMON 

C  OUTPUT  TWO  VECTORS  (EVR*EVI)  CONTAINING  REAL  AND  IMAG 

C  INARY  PARTS  OF  E I GENVALUES . I F  THE  METHOD  PROVIDES  THE 

C  MATRIX  OF  THE  EIGENVECTORS  THIS  WILL  BE  MATRIX  RMOD 

C  (100)  DIMENSIONED  AND  EQUIVALENCED  TO  RTEMP  AS 

C  (RTEMP(201  )  *RMOD ( 1  )  ) . IF  THIS  IS  NOT  THE  CASE  NOP ( 5 ) 

C  MUST  BE  SET  TO  ZERO.WORK1  TO  WORK6  VECTORS  WILL  BE 

C  AVAILABLE  AS  WORKING  VECTORS. 

KOP5=NQP ( 5 ) 

K=NOP (4 ) 

GO  TO( 121  *  121  *230*280)  ,K 

121  CONTINUE 

C  HERE  STARTS  METHOD  USING  SUBROUTINES  CHEQN+6ART. 

CALL  CHEQN (N* A*EVR*EVI * WORK1 *WORK2 ♦ WORK 3 » IER1 ) 

IF(IERl)  125*125*122 

122  WR I TE ( LUNO  *12  3)  IER1 

123  FORMAT  < 1H  */lX*'ERROR  CODE  IN  SUBROUTINE  CHEQN  IS*  *15 
1/1X.  *  TRY  POW 

1R  SERIES  METHOD'/) 

CALL  EXIT 
125  CONTINUE 

IF(IO-NPRTY)  131*131*133 

131  WRITE (LUNP*132 )  IER1 

132  FORMAT (1H  * 10X  ,  '  I ER 1 » / / 10X  ♦  I  5 / ) 
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C 

133  CONTINUE 

I  F ( 5-NPR  T Y )  134*134*140 

134  K  =  N+1 

WRITER  LUNP  *  77 ) 

77  FORMAT (1H  */) 

DO  138  I  =  1  *  K 
J=  1-1 

WRITE! LUNP  *13  5)  J*WORK3(I) 

135  FORMAT(T2* ‘COEFFICIENT  OF  POWER . . • • *  I  2  * •  OF  CHAR. 

1  EQUATION...... 

1 *E12.4  } 

138  CONTINUE 

140  CONTINUE 

DO  145  I  =  1  *  N 
EVR ( I )*0.0 
E V  I ( I ) =0 • 0 

145  CONTINUE 

I  F ( NOP (  4  )  —  1  )  141*141*180 

141  CONTINUE 

C  GIVE  NUMBER  OF  ITERATION  FOR  SUB.  BART 

LIMI=250 

CALL  BART (N*WORK3  *WORK5  *W0R<6  *EVR  *EVI *W0RK4  »  L I M I ♦ IER2 ) 

I  F (  I  ER2  )  148*148  *146 

146  WRITE (LUN0*147)  IER2 

147  FORMAT <1H  */lX*'ERROR  CODE  IN  SUBROUTINE  BART  IS*  *15 
1 / 1 X  »  *  TR  Y  POWE 

1  SERIES  METHOD'/) 

CALL  EXIT 

148  CONTINUE 

IF(IO-NPRTY)  170*170.175 

170  WRITE (LUNP. 171 )  ( W0RK4 ( I  )  »  I  = 1 » K ) 

171  FORMAT ( 1HQ*1QX» ' LAST  VALUES  OF  APROXIMATING 
1  POLYNOMIAL' //( 10X* 

1E15.6 ) / ) 

175  CONTINUE 

149  CONTINUE 

RESET  OPTION  NUMBER  5  AS  THIS  METHOD  DOES  NOT  PROVIDE 
EIGENVECTORS 


NOP ( 5 ) =0 
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C 

IF(IO-NPRTY)  150*150*152 

150  WR I TE ( LUNP  *151)  IER2 

151  FORMAT (1H  * 10X  .  •  I  ER2 ' / / 10X » I  5 / ) 

152  CONTINUE 

I  F ( 5-NPRTY )  160*  160*165 

160  CONTINUE 

WRITE! LUNP  * 78  ) 

78  FORMAT (1H  ) 

DO  164  I = 1 *N 

WRITE! LUNP  *161)  EVR ( I )  *  EV  I  ( I ) 

161  FORMATU2*  ‘REAL  PART  OF  E  I  .  V*  •  *  E  1 2 . 4  »  1  IMAG.  PART  OF 
1  E  I  .  V  •  •  » E  1 2 

14) 

164  CONTINUE 

165  CONTINUE 
GO  TO  300 

180  CONTINUE 

c  this  option  uses  subroutines  prbm  and  pqfb 

I C=N+ 1 

CALL  PRBM  ( WORK 3  *IC*EVR*EVI » W0RK4  *  I R » I ER2 ) 

I F (  I ER2 )  188*188  *  182 

182  WRITE (LUNO*183)  IER2 

183  FORMAT ( 1H  »/lX*‘ERROR  CODE  IN  SUBROUTINE  PRBM  IS* *15 
1 / 1 X  ♦  ' TRY  POWE 

1  SERIES  METHOD* / ) 

CALL  EXIT 
188  CONTINUE 

IF! 10-NPRTY)  190*190*195 

190  I C  T= I C- I R 

WRITE! LUNP  *191)  I  R  * ( W0RK4 ( I ) *  I *1 , ICT ) 

191  FORMAT ( 1H0»1QX*  *  NUMBER  OF  CALCULATED  ROOTS' *I5/9X 
1  * ‘COEFFICIENTS  0 

1 REMAINDER  POLYNOMIAL* / (10X*E15.6)/) 

195  CONTINUE 

GO  TO  149 

230  WRITE! LUNP  *231) 

231  FORMAT ! 1H  ♦ ' METHOD  TO  FIND  EIGENVALUES  NOT  AVAILABLE* 
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C 


1/  ) 

CALL  EXIT 
280  GO  TO  230 
300  CONTINUE 

C  DECIDE  ABOUT  OPTION  5. 

IFIKOP5)  310*310 ♦ 302 

302  I  F ( NOP ( 5  5 )  303*303*305 

303  WRITE (LUNO*304) 

304  FORMAT <1H  * ' DES I  RED  METHOD  USING  EIGENVECTORS  NOT 
1  APPLICABLE* /IX* 

1 ' PROGRAM  IS  CONTINUED  IN  THE  STANDARD  WAY*/) 

GO  TO  310 

305  CONTINUE 

C  SET  A  FLAG  AND  PROCEED. 

MEVCT  =  99 
WRITE (LUNO*308) 

308  FORMAT <1H  */lX*»METHOD  USING  EIGENVECTORS  NOT 
1  IMPLEMENTED* /IX *• TR 
1  ANOTHER  ONE*/) 

CALL  EXIT 

210  CONTINUE 

CALL  L I NK ( WAF4 ) 

END 
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C 


C 


THIS  IS  LINK  4  OF  PART  B 


EXTERNAL  WAF5 

DIMENSION  EVR ( 10  )  *  E V I ( 10)  .EVR1 ( 10 ) ♦ EVI 1 ( 10 )  .CC ( 100 ) 
1 *MT( 5 ) 

DIMENSION  IDUM1I80)  *RDUM1(45)  »MBLOK(50)  *RBL0K(40) 

1  ♦RTEMP ( 300 ) ♦ 
llW(lO) ♦ RW ( 40 ) 

DIMENSION  WR{ 10) *WI ( 10) ♦  WORKl (10) *W0RK2( 10) 
DIMENSION  NOP ( 10 ) 


COMMON  IDUMl .RDUM1 .MBLOK* RBLOK* RTEMP* I W.RW 


EQUIVALENCE 
1  *  NPRT Y ) 
EQUIVALENCE 
EQUIVALENCE 
1  *SMAST ) 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 


( IDUM1 (2 )  * LUNP  )  » ( I DUM 1(3) *N)  *  (  IDUMl (15) 

( IDUMl (4) *  LUNO ) ♦( IDUMl (71)  »N0P(1) ) 
(RDUMl(l) *  CR I T ) *(RDUM1(3) *  DELT ) »(RDUM1(5) 

(RDUM1 (4) *  DELTH ) 

(  IW(1)  *L)  ♦( I W ( 2 ) * ND )  * ( I W ( 3 )  *NR)  *(IW(4)  *NC) 
( I W ( 6 ) *MT ( 1 )  ) 

(RW( 1  ) *  EVR ( 1 )  )  * (RW( 11 ) »EVI  ( 1  )  ) 

(RW( 21  )  *EVR  1  (  1  )  ) • (RW( 31 ) *EVI 1 ( 1 ) ) 

(RTEMP( 101 ) »CC( 1 )  ) 


K  =  NOP (6 ) 


C  TRANSFER  EVR  AND  EVI  INTO  WORKING  VECTORS  WORKl  AND 

C  WORK2 

DO  3  1  =  1  *N 
WORKl ( I ) =  EVR (  I ) 

WORK2 ( I ) =  E V  I (  I ) 

3  CONTINUE 


CALL  EIGCK(K*N*W0RK1*W0RK2*WR*WI *NPR*EVR1 *EVI1*CRIT 
1 *DELT  *DELTH* 

1SMAST  »LUNO*L* IER3 ) 


I  F (  I  ER3 )  310.310*305 

305  WRITE (LUN0.306)  IER3 

306  FORMAT ( 1H  */lX*'ERROR  CODE  IN  SUBROUTINE  EIGCK  IS*  *  1 5 
1/1 X* ' TRY  POW 

1R  SERIES  METHOD'/) 

CALL  EXIT 
310  CONTINUE 
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C 


IF(IO-NPRTY)  320*320*330 

320  WR I TE ( LUNP  *321)  IER3 

321  FORMAT ( 1H1 *10X* • IER3*//10X*I5/) 
330  CONTINUE 


I F ! 5-NPRT  Y  )  340*340*350 
340  CONTINUE 


WRITE! LUNP  *10) 

DO  343  I  *  1 *L 

WRITE (LUNP *341)  WORKl ( I )  *  WORK 2 ( I ) 

341  FORMAT ( T 2  *  1  REAL  PART  OF  SHIFTED  E I . V . *  * E 1 2 . 4  * » 
1  PART. '  *  E  1 2 
14) 

343  CONTINUE 

WRITE(LUNP*10) 

10  FORMAT (1H  ) 


WRITE !lUNP*344)  SMAST 
344  FORMAT ( T2* 'REAL  PART  OF  SMALLEST  El 

. . .  *E1 

1.4/) 


IF(NPR)  350*350*345 
345  CONTINUE 


DO  348  I = 1 ♦ NPR 

WRITE (LUNP*347)  E VR 1 ( I  ) * E V  1 1 ( I ) 

347  FORMAT (T2 * 'REAL  PART  OF  POSITIVE  E I • V. '  * E  12 .4  * • 
1  PART.  '  * E  1 2 

14) 

348  CONTINUE 
WRITE(LUNP*10) 

350  CONTINUE 

I  F ( 5-NPRT Y )  360*360*370 

360  CONTINUE 

DO  363  1=1. L 

WRITE! LUNP  *361)  E VR 1 ( I  )  . E V  I  1 (  I  ) 

361  FORMAT ! T2 * 'REAL  PART  OF  ORDERED  E I . V . • * E 1 2 • 4 . • 

1  PART.  '  *E  12 
14) 

363  CONTINUE 
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C 

WRITE(LUNP.lO) 

WRITE ( LUNP  *  364 )  ND ♦ NR  * NC 

364  FORMAT ( T2 *' NUMBER  OF  DISTINCT  El. VS 

1 . * . . . •  *11 

1/T2. ‘NUMBER  OF  REPEATED  El. VS...... 

1 . ......'  *  1 10/T2  *  ' 

2UMBER  OF  COMPLEX  El. VS . . . . 

1/) 

IF (NR )370*370*365 

365  CONTINUE 

DO  368  I = 1 *NR 

WR  I  TE  (  LUNP  *  367  )  MTU) 

367  FORMAT (T2* 'MULTEPLICITY  OF  REPEATED 

1  El. VS . . . •  *11 

1  ) 

368  CONTINUE 

WR I TE ( LUNP  *  1 0  ) 

370  CONTINUE 

RECALCULATE  ORIGINAL  REAL  PART  OF  El. VS  TO  BE  USED 
IN  BUILDING  MATRIX  CC. 

DO  380  I  =  1  *  L 

WR ( I ) -E VR 1 ( I )+  SMAST 

W I ( I ) =E V  I  1  (  I  ) 

380  CONTINUE 

CALL  BLDMC ( L * ND *  NR ♦ MT * NC * WR ♦ W I » WORK  1  * WORK 2 ♦ CC * IER4) 

IF(IO-NPRTY)  400*400*410 

400  WR I TE ( LUNP  *401)  IER4 

401  FORMAT ( 1H0*1 OX* • IER4'//10X*I5/) 

410  CONTINUE 

I F ( 5-NPRT Y  )  420*420*430 

420  WR I TE ( LUNP  *421) 

421  FORMAT ( 1H  * /T27  * 'MATRIX  CC ‘ / ) 

CALL  MATPR(L*L*CC»W0RK1 »LUNP) 

430  CONTINUE 

CALL  LINK  ( W A F 5 ) 

END 
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C 


C 


THIS  IS  LINK  5  OF  PART  B 


EXTERNAL  WAF6 


DIMENSION  A (100) * CC ( 100 ) . FM ( 1 00 ) *FMR(100) >EVR(10) 
1 *EVI ( 10 ) *  E VR 1 (  10 
DIMENSION  H(200) *EV 11(10) 

DIMENSION  W0RK1 ( 100 ) *W0RK7 ( 100 ) 

DIMENSION  IDUMK80)  *RDUM1(45)  *MBLOK(50)  *RBLOK(40> 
1 .RTEMP ( 300 ) 

DIMENSION  IW( 10  )  *RW(40 ) 

DIMENSION  MT(5) 


COMMON  IDUM1 *RDUM1 .MBLOK .RBLOK # RTEMP *  I W.RW.FM.H 


EQUIVALENCE 
1 *NPRTY ) 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
1  iDELTH) 
EQUIVALENCE 
EQUIVALENCE 
1  . 


(  I DUM 1(2) *  LUNP  )  * ( IDUM1 (  5  )  *  N  )  ♦  l  IDUM1 ( 15 ) 

(  IDUM1 (44) *  MPSFG ) 

( IDUM1 (4) * LUNO ) 

(RDUMl(l)  ♦  CR  I  T  )  .  (RDUMK3)  »  DE  LT  )  *(RDUM1(4) 

( RDUM1 ( 5 ) *  SMAST ) 

(IW(1)*L)»(IW(2)#ND)*(IW(3)*NR)*(IW(4)*NC) 


1( I W ( 6 ) tMT(l)  ) 

EQUIVALENCE  ( RW ( 1  )  i  EVR ( 1 )  )  * ( RW ( 1 1 ) ♦ EV I  ( 1 )  ) 
EQUIVALENCE  ( RW( 21  )  *EVR1 (  1  )  )  ♦ ( RW ( 3 1 ) ♦ E V  I  1 ( 1  )  ) 
EQUIVALENCE  ( RTEMP ( 1 ) * A ( 1 )  ) *( RTEMP ( 101 )  *CC(1)  ) 
EQUIVALENCE  ( H ( 1 ) * FMR ( 1 ) ) 


K 1  =0 

NPS=DELT /DELTH+O • 5 
NN=N*N 


C  CHECK  FOR  MPSFG  AND  MEVCT. 

400  CONTINUE 

T=DELTH*FLQAT (K1 ) 

IF ( MPSFG" 99 )  460*565*460 
460  CONTINUE 

CALL  BLDVV(L*EVR1 *EVI 1 ♦ ND *  NR  * MT * NC . CR I T  *DELTH*EVI *K1 ) 

I F ( 5-NPR T Y  )  500*500*510 
500  CONTINUE 


WRITE (LUNP. 10) 
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C 

10  FORMAT ( 1H  */) 

DO  508  I ~ 1  * L 

WRITE (LUNP.501 )  T  *  I  *  EV  I  (  I  ) 

501  FORMAT(T2. 'TIME.  .... ‘ >F10.4* •  EXPONENTIAL  OF  EI.VI' 

1 >12* 1  . . 1 

1 E 1 2  •  4  ) 

508  CONTINUE 

WRITE (LUNP*11  ) 

11  FORMAT ( 1H  ) 

510  CONTINUE 

C  TRANSFER  MATRIX  CC  INTO  WORKING  VECTOR  WORKl. 

LL=L*L 

DO  515  K= 1 *LL 
WORKl ( K ) =CC ( K ) 

515  CONTINUE 

CALL  S IMQ ( WORKl *  EV I >L> IER1 ) 

IF(IO-NPRTY)  520*520*530 

520  WRITE! LUNP  *521)  IER1 

521  FORMAT ( 1H0*1 OX* »  I  ER 1 • / 1 0 X  *  I  5 / ) 

530  CONTINUE 

I F ( 5-NPR  T Y )  540*540*550 

540  CONTINUE 

DO  548  I  =  1  * L 
J=  1-1 

WRITE (LUNP*541 )  T.J.EVIU) 

541  FORMAT(T2* 'TIME . '*F10.4*'  COEFFICIENT  ALPHA('»I2 

1  *  '  . . ' 

1 E 1  2  •  4  ) 

548  CONTINUE 

WRITEtLUNP.il ) 

550  CONTINUE 

S=  EXP ( SMAST  *T ) 

C  INITIATE  WORK7  TO  MATRIX  A  AND  FM  TO  ZERO. 

DO  480  K=  1  *NN 
WORK7 ( K ) = A ( K ) 

FM ( K ) “0 .0 
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C 

480  CONTINUE 

C  CALCULATE  THE  FUNDAMENTAL  MATRIX  AT  DELTH* 

DO  560  K= 1 »  L 
T  EMP=  EV I ( K) 

CALL  BLDMR ( N » A  * WORK7 » WORK  1 *K) 

CALL  MSMUL ( N*N*W0RK1 *TEMP *W0RK1 ) 

CALL  GMADDIWORK1 ♦  FM  » FM  » N  *  N ) 

560  CONTINUE 

C  CORRECT  FM  BY  S  FACTOR 

CALL  MSMUL ( N  . N » FM * S * FM ) 

GO  TO  569 

565  CONTINUE 

THIS  IS  THE  POWER  SERIES  METHOD 
GIVE  THE  NUMBER  OF  ITERATIONS 


N I T= 100 

CALL  POSRT (N»A*FM*W0RK1 * WORK 7  *NIT  »DELTH*K1*IER) 

IF  THE  SERIES  DOES  NOT  CONVERGE  IN  NIT  ITERATIONS 
THE  PROGRAM  STOPS 

IF(IER)  569*569*566 

566  WRITE (LUNO*567)  NIT 

567  FORMAT ( 1H  */lX. 'POWER  SERIES  METHOD  DOES  NOT  CONVERGE 

1  IN'  *  15  * •  ITE 
1AT IONS' /  ) 

CALL  EXIT 

569  I F ( 5-NPRTY  )  570*570*580 

570  WR I TE ( LUNP  *571)  T 

571  FORMAT ( 1H  * /T 14 *' FUNDAMENT AL  MATRIX  AT  T  ='.F10.4/) 
CALL  MATPR ( N * N ♦ FM *  WORK  1 *LUNP) 

580  CONTINUE 

C  CALCULATE  H(T>  ACCORDING  TO  THE  TRAPEZOIDAL  RULE* 

IF(K1)  590*590*595 

590  DO  591  I  =  1  * NN 
FMR (  I  ) =  F  M ( I ) /2.0 

591  CONTINUE 
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GO  TO  605 

595  IF(Kl-NPS)  600*610*610 
600  CONTINUE 

CALL  GMADD (FMR*FM*FMR*N*N) 
605  K  1  =K  1  + 1 
GO  TO  400 
610  CONTINUE 

CALL  LINK  (WAF6) 

END 
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THIS  IS  LINK  6  OF  PART  B 


EXTERNAL  WAF7 


DIMENSION  B ( 200 ) 
DIMENSION  WORK1 ( 
DIMENSION  IDUM1( 
1*RTEMP<300) 
DIMENSION  IW(10) 


#  H ( 200 ) *FM( 100) *  FMR ( 
100 ) ♦ W0RK8 ( 20  ) 

80) *RDUM1 (45) *MBLOK ( 

♦  RW ( 40 ) 


100  ) 

50 )  ♦  RBLOK ( 40 ) 


COMMON  I DUM1 #RDUM1 *MBLOK * RBLOK *RTEMP *  I W  » RW »FM*H 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( IDUM1 ( 1 ) *  LUNR ) 

( IDUM1 ( 19) .NUPOP) 

( IDUM1 (2 ) ♦  LUNP  )  » (  IDUM1 ( 5) »N) * ( IDUM1 (9 ) *N2 ) 
( IDUM1 ( 15 ) *NPRTY) 

( FMR ( 1 ) *H(  1  )  ) 

( RTEMP ( 1 ) *B( 1  )  ) 

(RDUM1 (4) »DELTH ) 


DEFINE  FILE  40 ( 9 5  *  10 »U *  NEXT ) 
DEFINE  FILE  9 1 < 1 00  *  2 .U . NX  T9 1  ) 
DEFINE  FILE92(200*2»U#NXT92) 


NN=N*N 

NN2=N*N2 


I F ( 3-NPRT  Y )  620 ♦ 620  *630 

620  CONTINUE 

WR  I  TE ( LUNP  *621) 

621  FORMAT (1H  * /T 14 • » COEFF I C I  ENT  MATRICES  OF  THE  STATE • 
1/T22* ‘DIFFEREN 

IE  EQUAT ION' //T25** MATRIX  FM ( T ) • / ) 

CALL  MATPR(N*N*FM»W0RK8*LUNP) 

630  CONTINUE 


C  ADD  HALF  OF  THIS  LAST  VALUE  TO  THE  SUM  FMR 

DO  500  I s 1  * NN 
WORK  1 ( I )-FM( I ) / 2  •  0 
500  CONTINUE 


CALL  GMADD(FMR*W0RK1*FMR*N#N) 


C  MULTIPLY  THE  SUM  BY  THE  TIME  SUBINTERVAL* 


CALL  MSMUL(N*N*FMR*DELTH*FMR) 
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C 


IF(IO-NPRTY)  631  *631*635 

631  WRITE (LUNP. 632 ) 

632  FORMAT ( IHO »' INTEGRAL  OF  FI(T)*DT  OVER  THE  FIRST  TIME 
1  INTERVAL  COM 

1UTED  ACCORDING  TO  THE  TRAPEZOIDAL  RULE'/) 

CALL  MATPR ( N *N * FMR » WORK8 .LUNP ) 

635  CONTINUE 

C  COMPLETE  THE  CALCULATION  OF  H(T)  SFMR*B • 

C  FIRST  READ  MATRIX  B. 

READ! 92  *  1  )  B 

CALL  GMPRD!FMR»B*WORKl *  N  » N ♦ N2 ) 

C  TRANSFER  WORK1  TO  H 

DO  655  I  =  1  *  N  N  2 
H ( I ) =WORK 1 (  I  ) 

655  CONTINUE 

I  F ( 3-NPRT  Y  )  640  *  640  »650 

640  WRITE! LUNP  #641 ) 

641  FORMAT ( 1H  * / T25  »  'MATRIX  H ( T  )  ' / ) 

CALL  MATPR (N.N2 .H.WORK8 .LUNP) 

650  CONTINUE 

PUNCH  COEFFICIENT  MATRICES  FM  AND  H  ONTO  CARDS  IF 
NUPOP  IS  10 

IF(NUPOP-IO)  690  *651*690 

651  CONTINUE 

A  DECK  OF  BLANK  CARDS  MUST  FOLLOW  THE  LAST  DATA  CARD 
THIS  IS  A  DUMMY  READ  STATEMENT 

READ ( LUNR  *670 ) 

WRITE (LUNR.660)  ( FM ( I )  *  I  =  1 » NN ) 

660  FORMAT (1H  ♦' FUNDAMENTAL  MATRIX  GIVEN  COLUMNWISE  IN 
1  FORMAT  5 E 1 5  •  6 ' 

1 ( 5E15.6  )  ) 

READ! LUNR. 670) 

WRITE (LUNR. 670)  ( H ( I ) . I  =  1 . NN2 ) 

670  FORMAT ( 1H  .'COEFFICIENT  MATRIX  H  GIVEN  COLUMNWISE  IN 
1  FORMAT  5 E 1 5 • 

1  '  / ( 5E15 .6  )  ) 

690  CALL  LINK!  WAF7 ) 

END 
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THIS  IS  LINK  7  OF  PART  B 


EXTERNAL  WAF8*WAF9 

DIMENSION  WORK 1 ( 10  )  *WORK2 ( 15 )  *WORK3 ( 15 )  *W0RK4( 10 ) 

1 ♦ I  WORK ( 20  ) 

DIMENSION  C( 150 )  »D( 300 )  • H ( 200  )  * FM ( 100 ) 

DIMENSION  OW ( 200 ) *YORXV( 100 ) #OV ( 15 ) * Y ( 15 ) 

DIMENSION  NOP ( 10 )  »NCODE ( 10) *NY(15) *VD1(10) »VD2 ( 10  > 

1 *X ( 10  ) 

DIMENSION  MV (5) »  MV  1  ( 5 )  *NU(20)  *NU1(20) *  UD ( 20 )  *UD1(20) 
DIMENSION  IDUMK80)  *RDUM1(45)  *MBLOK(5Q)  *RBLOK(40) 

1 t  R  TEMP ( 300 ) 

DIMENSION  IW(  10)  *RW(40) 

DIMENSION  NBLNK ( 15) 

COMMON  IDUM1 *RDUM1 ♦ MBLOK * R BLOK » RTEMP# I W*RW*FM*H 

EQUIVALENCE  ( I DUMl ( 4 ) ♦ LUNO ) 

EQUIVALENCE  (  I DUM 1 ( 2 1 ) *  I D I  SC ) 

EQUIVALENCE  (  I DUMl (2)  .LUNP)  * ( IDUM115)  *N)  *  (  I  DUMl (9)  *N2 ) 
EQUIVALENCE  (  I DUMl (6) #  M )  » l I DUMl (8 ) *N1 ) » (  I DUMl (10) ♦ N3 ) 
EQUIVALENCE  (  I DUMl ( 11 ) »N4)  ♦  (  I  DUMl (12 ) *N5 ) 

EQUIVALENCE  (  I DUMl (13) *  NTD )  * ( I DUMl ( 14 )  >NPTS) 

1  ♦  (  I  DUMl ( 15 ) ♦ NPRT  Y ) 

EQUIVALENCE  (  I  DUMl (46)  *NY( 1  )  )  * ( I DUMl (61 )  »NCODE( 1 )  ) 

I  ♦  ( IDUM1 ! 71 ) *  NOP 

II  )  ) 

EQUIVALENCE  ( RDUM 1 ( 2 ) *  TO )  * ( RDUMl ( 3 ) *  DELT ) 

EQUIVALENCE  ( RDUM 1 ( 1 1 )  * VD 1 ( 1 )  ) 

EQUIVALENCE  (RDUMl (21) *VD2(1)  ) »( RDUMl (31)  #X(1)  ) 
EQUIVALENCE  (RSLOK( 1 )  *UD ( 1  )  ) ♦ (RBLOK(21 )  *UD1 ( 1 ) ) 
EQUIVALENCE  ( MBLOK ( 1 ) ♦ MV ( 1 ) ) » (MBLOK (6 ) »MV1 ( 1 ) ) 

1 » ( MBLOK ( 1 1 ) *  NU ( 1 )  ) » 

1 ( MBLOK ( 31 )  *NU 1 ( 1  )  ) 

EQUIVALENCE  IRTEMP(l)  *  D ( 1 )  ) 

EQUIVALENCE  (IW(5)*K1) 

DATA  NBLNK/' 

1  •  *  '  •  *  •  » 

1  .  .  ,  •  •  ,  •  •  ♦  •  •  / 

DEFINE  FILE  40 ( 95  *  10 »U *NEXT ) 

DEFINE  FILE  9 1 ( 100  *  2 #U *NXT91 ) 

DEFINE  FILE  92 ( 200  *  2 *U * NXT92 ) 

DEFINE  FILE  93 (  1  50 f 2 *U .NXT93 ) 

DEFINE  FILE  94 ( 300 *2 *U *NXT94 ) 
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C 


C 


DEFINE  FILE  96 < 1 1 20  * 2 *U  ♦  NXT96  ) 


C  EXIT  IF  NO  EXTERNAL  FORCING  FUNCTION  IS  GIVEN 


IF(IDISC)  2*2*3 

2  WRITE! LUNO *18) 

18  FORMAT (1H  * /IX ♦ • PROGRAM  STOPS  AS  NO  DISTURBANCE  HAS 
1  BEEN  ENTERED  * 

CALL  EXIT 

3  CONTINUE 

C  GIVE  LENGTH  OF  VECTOR  OW  CONTAINING  DELAYED  DATA. 

MAXOW  =  2  00 


GIVE  LENGTH  OF  VECTOR  YORXV  TO  CONTAIN  VALUES  OF  Y  OR 
X.IT  IS  USES  TO  BUILD  FILE  96  OF  MAXIMUM  LENGTH  MXF96 


5 
4 

6 
8 
9 

11 

1 


MAX YX= 100 

MXF96= 1 120 

WRITE (LUNP 

*5) 

FORMAT ( 1H 

*/// 

T21  ♦  • TI 

ME 

IF (NOP (7)- 

1)  8 

*4*4 

CONTINUE 

WR I TE ( LUNP 

.6  ) 

( NBLNK ( 

I  )  * 

F0RMAT(T4* 

i 

TIME' 

♦  9  ( 

GO  TO  11 

CONTINUE 

WRITE (LUNP 

.9  ) 

( NBLNK ( 

I  )  * 

FORMAT  t  T4  * 

• 

TIME  ' 

*  9  ( 

CONTINUE 

WRITE ( LUNP 

*1  ) 

FORMAT ( 1H 

) 

DOMAIN 


NY ( I ) ♦ 
5X  * A2 * 


N  Y  (  I  )  * 
5 X  » A2 * 


RESPONSE ' // ) 


1  =  1 *N5  ) 

•  Y  (  '  *  I  2  ♦  '  )  '  )  ) 


1=1 *N5 ) 

•  X (  «  .  12*  *  )  ’  )  ) 


C 


SET  X 


INTO  WORKING  VECTOR  WORK1. 


DO  10  I  *  1  *  N 
WORK 1 ( I )=X(  I  ) 
10  CONTINUE 


C  ZERO  WORKING  VECTOR  WORK2 • 

DO  20  1  =  1. M 
WORK2 ( I )=0.0 
20  CONTINUE 

C  ZERO  COUNTER  IOWCT  USED  BY  BLDFF • 


I OWCT  =  0 
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C 

C  INITIALIZE  COUNTER  USED  IN  FILE  96. 

KY  =  1 

CALCULATE  INTEGER  NUMBER  OF  SETS  CONTAINED  IN  YQRXV 
VECTOR. 

NSETS=MAXYX/N5 
MAX1=NSETS*N5 

FIND  INITIAL  TIME  VALUE. 

KK  =  TO/DELT  +  *  5 
T  =  DELT  AFLOAT ( KK ) 

START  TIME  DOMAIN  COUNTER. 


K  1  =0 


FIND  NUMBER  OF  TIME  INTERVALS. IF  NPTS  IS  ZERO  CALCU¬ 
LATION  ENDS  AT  TIME  =  1.0 

IF (NPTS)  30*30.40 
30  NT  =  1 • 0 /DE  LT  +  • 5 
GO  TO  50 
40  NT=NPTS 
50  CONTINUE 


CALCULATION  OF  TIME  DOMAIN  RESPONSE  INVOLVES  BOTH 
MATRICES  D  AND  C  OR  ONLY  C  ACCORDING  TO  THE  VALUE  OF 
N0P7 ) . 


I  F ( NOP ( 7 )  )  200.200.70 
70  I  F ( NOP ( 7 ) - 1 )  80.80.90 
80  CONTINUE 


C  ONLY  MATRIX  C  IS  NEEDED. 

READ( 93 '1)C 
GO  TO  130 
90  CONTINUE 

C  BOTH  MATRICES  C  AND  D  ARE  NEEDED. 

READ( 93  » 1 ) C 
READ( 94 ' 1 ) D 

95  CONTINUE 
ND=NTD 

96  IF ( N3- ( 1+2*ND ) )  97.99.99 

97  ND=ND- 1 
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C 

GO  TO  96 
99  CONTINUE 

CALL  BLDFF(ND*T0*DELT*W0RK1»N4»NU1*UD1 *OV*N3  *MV1 *NCODE 
1  » VD 1  *  VD2  ♦ 

1MAXOW  *OW  *  I  WORK » I0WCT*K1 *LUNP) 

IF(IO-NPRTY)  100  ♦  100  >120 

100  WRITE (LUNP*101)  T * ( OV (  I  )  » I  =  1  * N4  ) 

101  FORMAT ( 1H0*10X*'V(  •  »  F6 • 3  ♦  1  )  ,/(10X»El5*6)  ) 

120  CONTINUE 

CALL  GMPRD(D*OV  »WORK2  » M  *  N4  *  1 ) 

130  CONTINUE 

CALL  GMPRD ( C  *  WORK  1 *WORK3*M*N*l ) 

CALL  GMADD(WQRK3*  WORK 2  » Y  *  M  ♦  1 ) 

IF(IO-NPRTY)  140 >140*200 

140  WRITE (LUNP»141 )  T  ♦  ( Y ( I  )  » I  =  1  » M ) 

141  FORMAT ( 1 HO  *  1  OX  » • Y (  '  *F6. 3  ♦  '  )  • / ( 10X  •  E 1 5 • 6 )  ) 

200  CONTINUE 
ND=NTD 

201  IF ( Nl- ( 1+2*ND ) )  202*209*209 

202  ND=ND-1 
GO  TO  201 

209  CONTINUE 

CALL  BLDFF ( ND ♦ TO  ♦  DE LT , WORK  1 »N2  *NU*UD*0V*N1 ,MV»NCODE 
1  » VD 1  *  VD2 ♦ 

1 M AXOW  » OW ♦ I  WORK* I OWCT ♦ K 1  *  LUNP ) 

IF(IO-NPRTY)  210*210*240 

210  WR I TE ( LUNP  *211)  T * ( WORK 1 ( I ) *  I = 1  * N ) 

211  FORMAT ( 1H0»10X* 1 X( •*F6.3*')'/(10X*E15.6)J 
WRITE (LUNP *231)  T » ( OV (  I )  »  I  = 1 » N2 ) 

231  FORMAT (1HO*10X*'U(',F6.3»')'/(10X»E15.6}) 

240  CONTINUE 

I  F ( 3-NPRTY )  241  *241  *245 

241  I  SEE=  99 
GO  TO  250 

C  DECIDE  ABOUT  OPTION  NOP ( 8 ) . 

245  KQ=NOP ( 8 ) 

IFIKQ)  500*500*246 

246  GO  TO(248 *300*300*350*350 ) *KQ 
248  IF (  I SEE“9 9 )  250  *400  *250 

250  CONTINUE 

I  F  C  NOP ( 7 )  —  1 )  270  *260*260 

260  DO  261  1  =  1  * N 5 
KP  =  NY ( I  ) 

WORK3 (  I  )  = Y ( KP ) 

261  CONTINUE 

262  WRITE(LUNP»263)  T » ( WORK 3 (  I  )  ♦  I  = 1  ♦  N5 ) 

263  FORMAT ( 1H  *  10F12.4 ) 

GO  TO  280 
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C 

270  DO  271  1  =  1  * N5 
KP  =  NY (  I  ) 

WORK 3 ( I  ) = WORK  1 ( KP ) 

271  CONTINUE 
GO  TO  262 

280  IFUSEE-99)  400*245*400 
300  CONTINUE 

VARIABLES  OF  INTEREST  ARE  STORED  INTO  DISK  FILES  TO  BE 
PLOTTED 

ON  THE  SCOPE  NOP ( 8 ) =2  OR  ON  THE  PLOTTER  NOP(8)=3 

DO  345  I  =  1  *  N5 
KR*I+1-KY+K1*N5 
KK  =  NY ( I  ) 

I  F ( NOP ( 7 ) - 1 )  316  *320*3 20 
316  YORXV ( K R ) =  W  0  R  K 1 ( KK ) 

GO  TO  329 

320  YORXV(KR) =Y(KK) 

329  IF(KR-MAXl)  345*330*330 

330  WR I TE ( 9 6 ’ K Y )  ( YORXV ( J )  »J=  1  »MAX1 ) 

K Y=KY+MAX 1 

IF ( KY-MXF96 )  345*345*335 

335  WRITE (LUNO*336) 

336  FORMAT ( 1H  » ' TOO  MANY  VALUES  IN  FILE  NO.  96»/) 

CALL  EXIT 

345  CONTINUE 

IF(Kl-NT)  400*348*348 
348  WRITE(96'KY)  ( YORXV ( J )* J= 1 *MAX1 ) 

CALL  LINK(WAFIO) 

350  WRITE (LUNO*351 ) 

351  FORMAT ( 1H  ♦' REQUESTED  METHOD  OF  HANDLING  OUTPUT 
1  VARIABLES  NOT  IMP 
1EMENTED • / ) 

CALL  EXIT 
400  CONTINUE 
I  SEE  =  0 

C  COMPUTE  A  NEW  STATE  VARIABLE  VECTOR. 

CALL  GMPRD(H»OV*WORK3*N*N2»l ) 

CALL  GMPRD ( FM ♦ WORK1 »W0RK4*N*N*1 ) 

CALL  GM ADD (WORK 3 » W0RK4  *  WORK  1 > N ♦  1  ) 

C  STEP  COUNTER. 

K  1  =  K 1  + 1 

C  FIND  NEW  TIME  VALUE. 


C/.IM  ivS  OC 

:  n  • 

(  v  i  (  '  ; 

*  ■  ' 


■ 


.  .  !  c  OC 

.  ,<  -  .y 

*  .  _  |  - 

0'  *  *  (  •  -•  •  -  * >  - 1  ?Sc 

.  ;  v  ■  • '  »  >  •  • 1  •  ) 

I  '+ Y>= Y 

*  .  *  .  i-  .  (  •'••.  “  Y- 

3  f  t  i  j  J  f  I '}  5  £ 

-  .  .  I  |  A  V  Y  r  1  '  *  !  '■  I 

•  •  ~ 

*  -L  »  u  ,  V 

( 0X3AW) >/ 1 J  JJAD 

<  xe*  f  oy»uj) 

ruHTUO  DU  J  JGHAt-  OHT3M  Q3Tc  *  •  rtl  )  T  At 

£  i J9A I RAV  I 
(  \  '  0  -  T  ■■  ;  •;  X 

IUI  IT  0.)  0  *■ 

(  1  «  «  t  :w.  *  »H)  Wl  j  I  ad 

(  I  f  :  ■ .  ■  f  .  ♦  i  •  -  )  J  J  A  ?■ 

,  T/'JCD 

I  +  X»-X>J 


•» 


non 


c 


KK=TO/DELT  +  • 5 
KK=KK+K 1 

T  =  DELT-* FLOAT  (  KK  ) 

C  CHECK  FOR  NUMBER  OF  ITERATIONS. 

IF(Kl-NT)  420*420*500 

C  DECIDE  WHERE  TO  REENTER. 

420  I  F ( NOP ( 7 )  )  200*200*425 
425  I  F ( NOP ( 7 ) -1 )  130  *  130*95 
500  CONTINUE 

IF ( NOP ( 9 ) )  600*600*650 

C  NO  CHANGE  DESIRED. 

600  NJOBS=NJOBS-l 

IF ( NUOBS )  610*610*620 
610  CALL  EXIT 
620  CALL  LINK! LAST1 ) 

650  CALL  LINK  ( W A F 8 ) 

END 
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THIS  IS  LINK  8  OF  PART  B 


EXTERNAL  WAF7  *WAF5*LAST1 

DIMENSION  NOP (10)  *NCODE( 10 5  * VD1 ( 10 )  ♦ VD2 (  10 )  *X ( 10  ) 

1 » N Y ( 15  ) 

DIMENSION  I  V (  10)  *RV( 10  )  * IALPH(  1  ) 

DIMENSION  IDUM1 ( 80  )  *RDUM1 (45  )  » MBLOK ( 50  )  ,RBLOK(40  ) 

1 *RTEMP ( 300  ) 

DIMENSION  IW ( 10  )  »RW(40  )  *H  (  200 ) *FM( 100 ) 

COMMON  I DUM1 *  RDUM 1 » MBLOK  »  RBLOK  *  RTEMP  *  I W  »  RW  » FM ♦ H 

EQUIVALENCE  ( I DUM 1 ( 3 ) * LUN I ) . (  IDUMK4)  .LUNO)  »  (  IDUM1(  14) 
1  *NPTS ) 

EQUIVALENCE  ( IDUM1 ( 15 ) *NPRTY ) 

EQUIVALENCE  ( I DUM 1  ( 1 6 )  ♦ I FLG2 )  . (  I DUM 1 ( 1 7 )  ♦  I  FDFG ) 

1  * (  IDUM1 (46  )  .NY ( 1 )  ) 

EQUIVALENCE  (  IDUM1  (61 )  *NCODE( 1  )  >  .  ( IDUMl (71 )  *NOP( 1 )  ) 

EQUIVALENCE  ( RDUM1 ( 4 ) ♦ DELTH ) > ( RDUM 1(2) .TO) ,(RDUM1(3) 

1 » DELT  ) 

EQUIVALENCE  ( RDUM 1 (  1 1  )  *VD1(1)  )  ♦ ( RDUM1 (21)  .VD2(1)  ) 

1  * ( RDUM1 ( 3 1 ) ♦ X ( 1  ) 

EQUIVALENCE  (  IDUMl ( 12 )  #N5  ) 

EQUIVALENCE  (  I DUM 1 ( 20 )  . I  NO ) 

K  =  NOP ( 9  ) 

GO  TO ( 5  *  200  *  300  )  .K 
5  CONTINUE 

WR I TE ( LUNO ♦ 8  ) 

8  FORMAT ( 1H  ♦ ' ENTER  999  * D I  ST . NO+ 1 00 ♦ D I  ST . CODE  NO. .1ST 
1  DIST. VALUE* 

1ND  DIST. VALUE  **  ' / ) 

CALL  TWAIT 


NR--1 

CALL  FFINP(  I  V  ♦  R V  * IALPH»NI  *  NR  * NA * LUNO » LUN I  ) 

KK=  I V ( 2  )  -  100 
NCODE ( KK )  =  I  V ( 3 ) 

VD1  (KK ) =R V ( 1 ) 

VD2 ( KK ) =R V ( 2 ) 

WRITE (LUNO. 12 ) 

12  FORMAT ( 1 H  *'IF  A  CHANGE  OF  ANY  OF  THE  FOLLOWING  IS 
1  DESIRED  ENTER* 

1/'  ID  NO • S  AND  NEW  VALUES  ** •  /*  999  **  OTHERWISE 

1  OR  AS  LAST 
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C 

2NTRY ' / ) 

WR I TE ( LUNO  *  1 3 ) 

13  FORMAT ( T 1  1  WAY  OF  HANDLING  THE  OUTPUT  ...  NOP ( 8 )  ' 

1/'  2  INI 

UAL  TIME  VALUE . TO'/'  3  NO.  OF  TIME 

1  INTERVALS.... 

2  . NP  T  S  '  /  '  4  INITIAL  STATE  VECTOR . X  (  0  )  ' 

1/'  3  OUT 

3UT  VARIABLE  VEC TOR ...........  NY '/ '  6  FURTHER 

1  CHANGES . 

4. . .NOP ( 9  )  '  //  ) 

CALL  TWAIT 


14  NR=-1 

CALL  FFINP(  I  V  *  R  V  » IALPH.NI *  NR , N A ♦ LUNO » L UN  I  ) 

IF (  IV ( 1 ) -999  )  30*21*21 
21  CALL  LINMWAF7) 

30  CONTINUE 
KK  = I  V  < 1  ) 

GO  TO  (33*40.45  *50*55*60)  *KK 
35  NOP ( 8 )  =  I  V ( 2 ) 

GO  TO  14 
40  TO  =  RV ( 1  ) 

GO  TO  14 
45  NP TS= I  V ( 2  ) 

GO  TO  14 
50  DO  52  I = 1 ♦ NR 
X (  I ) =RV (  I  ) 

52  CONTINUE 
GO  TO  14 
55  DO  57  I =2  * N I 
NY(  I  —  1 )  =  I  V  <  I  ) 

57  CONTINUE 
N5=N I -1 
GO  TO  14 
60  NOP ( 9 )  =  I  V ( 2 ) 

GO  TO  14 

200  CONTINUE 

WRITE(LUNO*210) 

210  FORMAT ( 1H  .'ENTER  ID  NO.S  AND  NEW  VALUES  ** ' / ' 

1  999  **  AS  LA 
IT  ENTRY'/) 

WR I TE ( LUNO  *220 ) 

220  FORMA  T ( T 1  *  '  1  OPTION(I)  NO . . OP T I  ON (  I  )  VALUE •»••**' 

1/'  2  TO  ♦  D 

1LT  . . **'/'  3  NUMBER  OF 

1  POINTS . 
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C 


2  . **'/'  4  OUTPUT  VARIABLE  VECTOR . 

1/'  5  PRIO 

3  I  T  V  NUMBER  FOR  OUTPUT . **'//) 

CALL  TWAIT 

230  NR  =  - 1 

CALL  FFINP(IV»RV*  IALPH»NI ♦ NR » NA * LUNO ♦ LUN I  ) 

IF (  IV ( 1  )-999  )  24C  »  2 35  ♦  2  3  5 
235  CALL  L  I  NK ( WAF2 ) 

240  CONTINUE 
KK=  I  V ( 1 ) 

GO  T0(245*260»265»270»275) » KK 

245  DO  258  K  =  2  »NI  »2 
KK  =  IV ( K ) 

GO  TOt246»247»248»249»250*251*252»253»254*255)»KK 

246  NOP  (  1  )  =  I  V  (  K+l  ) 

GO  TO  258 

247  NOP ( 2 )  =  I  V ( K+ 1 ) 

GO  TO  258 

248  NOP ( 3 )  =  I  V ( K  +  l ) 

GO  TO  258 

2^9  NOP ( 4 )  =  I  V ( K  + 1 ) 

GO  TO  258 

250  NOP ( 5 )  =  I  V ( K  +  l ) 

GO  TO  258 

251  NOP ( 6 )  =  I  V ( K  +  l ) 

GO  TO  258 

252  NOP ( 7 )  =  I  V ( K+l ) 

GO  TO  258 

2  53  NOP ( 8 )  =  I  V ( K  +  l ) 

GO  TO  258 

254  N0P(9)=IV(K+1 ) 

GO  TO  258 

2  55  NOP ( 10 )  =  I  V ( K+l ) 

258  CONTINUE 
GO  TO  230 
260  TO  =  RV ( 1  ) 

DE LT  =  RV ( 2  ) 

DELTH  =  R V ( 3  ) 

GO  TO  230 
265  NP TS= I  V ( 2 ) 

GO  TO  230 

270  DO  271  I  =  2  * N I 
NY (  1-1 )  =  I  V ( I ) 

271  CONTINUE 
GO  TO  230 

275  NPRTY= I  V ( 2 ) 

GO  TO  230 
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C 

300  CONTINUE 

WR  I  TE ( LUNO  »  3 1 0 ) 

310  FORMAT <1H  * ' ENTER  T •  F • T YPE  OR  PARAMETER  **'/l 
1  NOP ( 9 )  VALU 

1  TO  STOP  OR  MAKE  A  DIFFERENT  CHANGE’/) 

I FLG2=99 
I FDFG= 1 
I NQ= I NO+ 1 

CALL  TWAIT 

CALL  L I NK ( LAST  1  ) 

END 
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THIS  IS  LINK  10  OF  PART  B 


EXTERNAL  LAST  1  * WAF9 »WAF8 

DIMENSION  LAB YX ( 10 ) *LABYY ( 10 )  *LABXX  < 10  )  ♦  I VEC1 { 20 ) 

1  * IVECT (20 ) 

DIMENSION  LAB Y ( 10) »LABX( 10) • I  SAVE (15) *IPTNY(10) 
DIMENSION  Y ( 1 50 ) 

DIMENSION  NOP ( 10 ) ♦ NY ( 1 5 )  . I V ( 1 0 )  * RV < 10 )  *  I ALPH (40 ) 
DIMENSION  IDUM1 ( 80 ) *RDUM1 (45 ) #MBLQK ( 50 ) *RBLOK(40 ) 

1  *  RTEMP ( 300 ) 

DIMENSION  IW ( 10 ) *RW(40 ) »H( 200 ) »FM( 100 ) 

DIMENSION  RADD ( 5 ) 

COMMON  IDUM1 ♦ RDUM 1 ♦ MBLOK » RBLOK  » RTEMP* I W tRW»FM*H 

EQUIVALENCE  ( IDUM1 ( 2 ) »LUNP ) ♦ ( IDUM1 (4) *LUNO) * ( IDUM1 ( 12 ) 
1  *N5  ) 

EQUIVALENCE  ( IDUM1 ( 15) »NPRTY) *( IDUM1 (41 ) *NjOBS) 

1» (  IDUM1 (46) * N Y ( 1 )  ) 

EQUIVALENCE  ( IDUM1 (71 ) *NOP( 1 )  )  ♦  ( IDUMK  3 ) >LUNI ) 
EQUIVALENCE  <  I W ( 5 ) * Kl ) 

EQUIVALENCE  ( RDUM1 ( 2 ) *TO)  ♦ ( RDUM1 ( 3 ) *  DELT ) 

EQUIVALENCE  ( RDUM1 ( 1 ) *RADD ( 1 ) ) 

EQUIVALENCE  ( RTEMP ( 1 5 1 ) » Y ( 1 ) ) 
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C 


IRET= IDUM1 ( 51 ) 

IFURET-99)  200*250*200 
200  CONTINUE 

WRITE (99* 1  )  ( IDUM1 (I)*I=1*80). (RDUM1 ( I )  ♦  1  =  1*45 ) 

1  * ( MBLOK ( I )  *1  =  1*50)  * 

1 ( RBLOK ( I ) *  1  =  1 *40  )  * ( RTEMP (  I  ) *1=1*300) *(  IW(  I) *1  =  1*10) 
1*{RW(I) *1=1*40 

2. (H( I ) *  1  =  1*200) * (FM( I ) *1  =  1*100) 

C  INITIALIZE  COUNTERS 

I P  TCT  x0 
KY  =  0 

C  SET  RETURN  FLAG 

I  RET=99 
GO  TO  300 
250  CONTINUE 

C  SAVE  VALUES  FROM  COMMON  BEFORE  RESTORING  THE  OLD  ONE 

IPTAL= IDUM1 ( 52  > 

IPTCT= IDUM1 ( 53 ) 

KY  = IDUM1 ( 54 ) 

READ ( 99  •  1  )  IDUM1 *RDUM1 * MBLOK. RBLOK* RTEMP *  IW*RW*H*FM 
300  CONTINUE 

I  F ( I PT  AL-99 )  508  *3*508 

508  CONTINUE 

509  WRITER  LUNO  *510) 

510  FORMAT (1H  .'ENTER  1  **  IF  PLOT  IS  DESIRED'/'  0  * 

1*  OTHERWISE 

1/) 

CALL  TWAIT 
NR  =  -1 

CALL  FF I NP ( I V  * RV . I ALPH ♦ N I ♦ NR . NA » LUNO . LUN I  ) 

I F ( I V ( 1  )  )  520.520*550 
520  WRITE (LUNO. 525 ) 

525  FORMAT ( 1H  *' ENTER  NOP ( 9 )  VALUE  FOR  FURTHER  CHANGES'/' 

1  0  ** 

1THERW I SE ' / ) 

CALL  TWAIT 
NR=-1 

CALL  FF I NP ( IV.RV* IALPH.NI *  NR  * NA * LUNO . LUN I  ) 

NOP ( 9 )  =  I  V ( 1 ) 

I F ( NOP ( 9  )  )  530*530*535 
530  NJOBS-NJOBS-1 

I F ( N JOBS )  532*532*533 
532  CALL  EXIT 
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C 

533  CALL  LINK(LASTl) 

535  CALL  L I NK ( WAF8 ) 

550  CONTINUE 

WR I TE ( LUNO  *551) 

551  FORMAT (1H  » *  ENTER  1  **  FOR  PLOTTING  ALL  YS  IN  THE 
1  STANDARD  FORM’/ 

1  0  #*  OTHERWISE'/) 

CALL  TWA  I T 
NR  =  -1 

CALL  FF I NP ( I V.RV > IALPH.NI * NR  * NA ♦ LUNO ♦ LUN I ) 

I F ( I V ( 1 ) )  570*570.560 
560  I PTAL=99 
GO  TO  3 

570  I PTAL=0 
WRITE(LUN0.571) 

571  FORMAT (1H  .'ENTER  ID  NO.  FOR  DESIRED  VARIABLE  Y  •  //  • 

1  ID 

1  Y  '  /  ) 

DO  574  «.=  1  ♦  N5 

WRITE ( LUNO. 573 )  K.NY(K) 

573  FORMAT ( 1H  .2110) 

574  CONTINUE 
CALL  TWAIT 
NR  =  -1 

CALL  FF I NP ( IV.RV. IALPH.NI ♦ NR t NA . LUNO ♦ LUN I  ) 

IF(IVU))  509.509*580 
580  I P  TSY  =  99 
K Y= I V ( 1  ) 

WR I TE ( LUNO . 590 ) 

590  FORMAT ( 1 H  .'ENTER  1  **  FOR  STANDARD  GRAPH'/'  0  * 

1*  OTHERWISE 
1/  ) 

CALL  TWAIT 
NR  =  -1 

CALL  FF I NP ( I V.RV . IALPH.NI » NR . NA ♦ LUNO . LUN I ) 

I F ( IV ( 1  )  )  600.600.3 
600  WR I TE ( LUNO .610) 

610  FORMAT ( 1H  .'ENTER  ID  NO.  AND  NEW  VALUES  **•//•  1 

1  YM I N . YMAX • • •  •  * 

. . . . •••.***/♦  2  PLOT 

1  STATUS ••1=NEW.2=0VERT0 

2 .3-CVERBOTTOM..**' / '  3  PLOT  T YPE . . -VE  =  L I NE .0  =  + . 1  =  X 

1  ETC . 

3 ••**'/  '  4  DEVICE. .l  =  SCOPE*2=PLOTT 

1ER . ..**•/'  5 

4L0T  POS I T ION. . .  .  .  .  . . .  ) 

Vs/ R  I  T E  <  LUNO  .615) 

615  FORMAT (1H  .'  6  **. .LABEL  ON  X  AXIS 

1*..  ( 20 A 1  )..*'/• 

17  #*• .LABEL  ON  Y  AXIS 
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*. . (40A1 ) . .*• //IX » ' LAST  ENTRY 


1  ** ••TITLE* 

2  . 

1  IS  999  **• /) 

CALL  TWAIT 
DO  505  1=1.10 
I  PTNY ( I  )*0 
505  CONTINUE 
650  NR=-1 

CALL  F  F  I N  P ( I  V.RV* IALPH.NI » NR . NA . LUNO » LUN I ) 
IF  C I V  < 1  ) -999 )  670.3.3 
670  KK=  IV ( 1 ) 

GO  TO  ( 710*720*730. 740.750. 760.770.780 ) .KK 
710  YM I N=RV ( 1 ) 

YMAX  =  RV ( 2  ) 

I PTNY ( 1  )  =  1 
GO  TO  650 
720  I  U=  I V  <  2 ) 

I  PTNY ( 2 )  =  1 
GO  TO  650 
730  I  P=  I V ( 2 ) 

I  PTNY ( 3 )  =  1 
GO  TO  650 
740  I D= I V ( 2  ) 

I P TNY ( 4  )  =  1 
GO  TO  650 
750  I  G= I V ( 2 ) 

I  PTNY (5 )  =  1 
GO  TO  650 
760  CONTINUE 
N  I  =0 
NR  =  0 
NA  =  20 

CALL  FF  I NP ( IVtRV. IALPH.NI . NR . NA . LUNO * LUN I ) 
CALL  AFCRT (NA. IALPH.L.LABX ) 

I PTNY ( 6 ) = 1 
GO  TO  650 
770  CONTINUE 
N  I  =0 
NR  =  0 
NA  =  20 

CALL  FF  I  NP ( I V.RV. IALPH.NI . NR ♦ NA . LUNO . LUN I  ) 
CALL  AFCRT (NA* IALPH.L.LABY ) 

I  PTNY ( 7 )  =  1 
GO  TO  650 
780  CONTINUE 
N  I  =0 
NR  =  0 
N  A  =  40 

CALL  FFINP ( I V.RV.  IALPH.NI ♦ NR ♦ NA * LUNO . LUN I  ) 
CALL  AFCRT (NA. IALPH.L. I VECT ) 
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I  PTNY ( 8 )  =  1 
GO  TO  650 
CONTINUE 


I  CT=  1 
KFL=  1 
MAXYV= 1 50 
MX  100s 1 1 20 
MXTMP=150 
NSETSsMXTMP/N5 
NVAL  =  NSET  S*N5 
K I sTO/DELT+*  5 
KFSKI +  K1 

XMIN=DELT*FLOAT ( K  I  > 

XMAX=DELT* FLOAT (KF) 

KN=K1+1 

NN5=KN*N5 

NVALCSNVAL 

I  F  <  I PT  SY-99 )  34*40*34 
I F  < IPTAL-99 )  40*35*40 
I  F ( KY-N5 )  36*509  *509 
KY=KY+1 
CONTINUE 

I  F ( NN5-NVALC )  60  *60*70 
KKSNN5-KFL+1 

READ ( 96  '  KFL )  ( RTEMP ( I ) ♦ I  =  1 *KK  ) 

GO  TO  100 

READ ( 96 1 KFL )  ( RTEMP (I ) *  I s 1  * NVAL ) 

SORT  OUT  VALUES  FROM  RTEMP  INTO  WORKING  VECTOR  Y. 

DO  75  K=1*NSETS 
KT  =  KY  +  N5# ( K-l ) 

Y { K ) =RTEMP ( KT  ) 

CONTINUE 

CHECK  FOR  ROOM  IN  FILE  100 

IF ( ICT+NSETS-MX100  )  72  *72*80 
WRITE ( 100 1 ICT )  ( Y( J) *J=1*NSETS) 

STEP  CONTERS. 

I CT= I C  T  +  NSETS 
KFL=KFL+N VAL 
NVALCSNVALC+NVAL 
GO  TO  50 
WRITE ( LUNO  *81) 

FORMA T ( 1 H  .'TOO  MANY  VALUES  IN  FILE  100‘/) 

CALL  EXIT 
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C 

100  CONTINUE 

K2-KK/N5+0*5 
DO  120  K= 1 *K2 
KT=KY+N5* ( K-l J 
Y ( K  )  =RTEMP(KT ) 

120  CONTINUE 

C  CHECK  FOR  ROOM  IN  FILE  100 

IF (  ICT+K2-MX100 )  119*119.80 
119  WRITEdOO'  ICT)  (  Y  (  J  )  * J= 1  *  K2 ) 

KT=NY ( KY ) 

I  F (  10-NPRTY )  123*123*128 

123  DO  126  I=1*KN 
READ ( 100 • I )  TEST 

WR I TE ( LUNP  *  124 )  KT  ♦  TEST 

124  FORMAT (1H  *5X  •• Y 12 ••)•//( E15*6 ) ) 
126  CONTINUE 

128  CONTINUE 

KLAB= ISAVE (KT ) 

I  F  <  I  PTN Y ( 5 )  )  140  *140*150 

140  I  PTCT= I PTCT  +  1 

141  I  F ( I PTCT-2 )  142*142*143 

142  I G= I PTCT 
GO  TO  150 

143  IPTCT=IPTCT-2 
GO  TO  141 

150  CONTINUE 

I  F (  I PTNY ( 7 ) )  5*5*10 

5  I  F ( NOP ( 7 )  )  6*6*8 

6  DO  7  1=1*10 

L ABY (  I  )  =L ABYX ( I ) 

7  CONTINUE 
LABY ( 8 ) =KLAB 
GO  TO  10 

8  DO  9  1=1*10 

L ABY (  I  )  =L ABY Y ( I ) 

9  CONTINUE 
LABY ( 8 ) =K  L AB 

10  CONTINUE 

I  F (  IPTNY(6)  )  11*11*13 

11  DO  12  1*1*10 
LABXI I ) =LABXX ( I ) 

12  CONTINUE 

13  I  F (  IPTNY ( 8 )  )  14*14*16 

14  DO  15  1=1*20 

I VECT ( I )  =  I VEC 1 ( I  ) 

15  CONTINUE 

16  CONTINUE 
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IF( IPTNY ( 3 )  )  18*18*20 
18  IP=-1 
20  CONTINUE 

I  F (  IPTNY  <  2  ) )  22  *22*25 
22  I U= 1 
25  CONTINUE 

IF( I PTN Y ( 4  ) )  28*28*30 
28  I  D  =  NOP ( 8 ) -1 
30  CONTINUE 

C  BUILD  NEW  COMMON  TO  BE  USED  IN  LINK  9. 

DO  155  1=1*20 
IDUM1 ( I  )  =  I VECT ( I  ) 

155  CONTINUE 

DO  160  1=1*10 
K= 1+20 

IDUM1 (K)=LABX( I ) 

160  CONTINUE 

DO  165  1=1*10 
K-  1+30 

IDUM1 (K  >=LABY( I ) 

165  CONTINUE 

DO  170  1=1*10 
K=  I +40 

IDUM1 (K )  =  IPTNY( I  ) 

170  CONTINUE 

I DUM1 ( 5 1 ) = I RET 
IDUM1 ( 52 ) = IPTAL 
I DUM1 ( 5  3 )  =  I PTCT 
IDUM1 (54) =KY 
IDUM1 (55 )  =  ID 
IDUM1 ( 56 )  =  IG 
IDUM1 (57 ) =IU 
I DUM1 ( 5  8 )  =  I P 
IDUM1 ( 59 ) =KN 
RADD ( 1 )=XMAX 
RADD ( 2 ) =XM I N 
RADD ( 3 ) = YMAX 
RADD ( 4 ) = YM I N 
CALL  L I NK ( WAF9 ) 

END 
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c 

C  THIS  IS  LINK  9  OF  PART  B 

C 


EXTERNAL  WAF10 

DIMENSION  LABYI 10) *  LABX ( 10  )  * IPTNY(IO) * IVECT( 20) 
DIMENSION  XWI50)  *YW(50) 


COMMON  I VECT * LABX* LAB Y* IPTNY* I  RET* IPTAL* IPTCT.KY • ID* IG 
1  * IU* IP  *KN 
COMMON  I DUM9 (21) 

COMMON  XMAX*XMIN*YMAX*YMIN 


DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 

DEFINE 


FILE  40 (95  *  10*U*NEXT  ) 
FILE  91 ( 100*2*U*NXT91  ) 
FILE  92(200*2*U*NXT92) 
FILE  93( 150*2»U*NXT93 ) 
FILE  94( 300*2*U»NXT94) 
FILE  96( 1120t2*U*NXT96  ) 
FILE  99( 160*10*U*NXT99  ) 
FILE  100  (  U20*2*U*NX100) 
FILE  101 ( 1120*2 »U*NX101 ) 


LUNPS=7 
KK=  1 
I S  =  2 
I L  =  1 
I  T  =  2 
I B  =  1 
I R  =  2 
L0S 100 
L 1  =  10  1 
11=0 

I F ( IPTNY ( 1  )  )  160*160*180 

160  CALL  NWMAX(YW*KK*YMIN*YMAX*IR*I I *LO»KN) 

180  CALL  NWPLT (XW*YW  *KK*ID* IS* IG* IL* IT  *  IB* IU* IR* IP*XMAX 
1 *XMIN*NCYCX* 

1YMAX*YMIN*NCYCY*LABX.LABY»L1*L0*KN) 

IF(IU-l)  190*190*280 
190  CONTINUE 

CALL  SCALFIl# *1. *8.5*0. 0) 

IF(IG-l)  200*200*220 
200  CALL  FPLOT(+l»+1.5*+9*75) 

CALL  FCHAR ( +1.5* +9. 75 *0.15*0.20* +0.0) 
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C 

GO  TO  250 

220  CALL  FPLOT (+l*+l*5»+4»75 ) 

CALL  FCHAR(+1.5*+4.75iO. 15*0. 20f +0.0) 
250  CONTINUE 

WRITE(LUNPS*253)  IVECT 
253  FORMAT ( 20A2 ) 

CALL  FPLOT (+l*+8.5*+0.0) 

280  CONTINUE 

CALL  LINK(WAFIO) 

END 
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APPENDIX  F 


Listing  of  Subroutines 


Subroutine 

Page 

FFIOR 

F-l 

FIND 

F-4 

GTCCI 

F-7 

TWAIT 

F-10 

MATPR 

F-  11 

MATCO 

F-12 

CHEQN 

F- 14 

BART 

F- 16 

SOLEQ 

F-22 

EIGCK 

F-24 

ORDER 

F-28 

REORG 

F-29 

BLDMC 

F-3  3 

BLDVV 

F-37 

POSRT 

F-39 

BLDMR 

F  -  41 

MSMUL 

F-4  2 

BLDFF 

F-  43 

AFCRT 

F-4  7 

GMADD , GMP RD , GMS UB , MINV,PMPY ,P RBM , PQFB , PDE  R , S IMQ : 
are  given  in  reference  13. 


FCHAR , FPLOT , NWMAX , NWPLT , SCALF :  see  DACS  Centre 
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C 


C 

SUBROUTINE  FF I  OR ( I  V  * RV *  I ALPH * N I ♦ NR • NA *  I D 1  *  I D2 ) 

C  PURPOSE 

C  TO  READ  AND  WRITE  DATA  IN  FREE  FORMAT 

C  SUBROUTINE  FFINP  IS  ANALOGOUS  BUT  LIMITED  TO 

C  READING  ONLY 

C 

C  PARAMETERS 

C  IV  *  VECTOR  CONTAINING  NI  INTEGERS  IN  THE  SAME 

C  ORDER  AS  SUPPLIED  WITH  THE  INPUT  LIST 

C  RV  =  VECTOR  CONTAINING  NR  REAL  VALUES 

C  IALPH  =  VECTOR  CONTAINING  NA  ALPHANUMERIC  VALUES 

C  N I  *  NR  ♦  NA  =  NUMBER  OF  I NTEGERS *  REALS ♦ ALPHAMER I CS 

C  ID1  =  LOGICAL  UNIT  NUMBER  FOR  OUTPUT  DEVICE 

C  ID2  =  LOGICAL  UNIT  NUMBER  FOR  INPUT  DEVICE 

C 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

C  NONE 

C 


DIMENSION  I V( 1 )  *RV ( 1  )  * I ALPH ( 1  ) 

DIMENSION  ICODE ( 17  )  *  INPUT ( 81  ) 

DATA  ICODE/'  '*'0  '*'1  '*'2  '*'3  '*'4  '  *  *  5  '.'6  '♦ 
1  *  7  '*'8  '*'9  '  *  '  E  '»'»  '***  '/ 

DATA  I CARD/0 / 

I WR I T  = I D 1 
I R  EAD= I D2 
I  I  C  N  T  =  1 
I RCNT= 1 
I  ACNT  =  1 

INPUT (81 )  =  I  CODE ( 1  ) 

107  READ (  I R  EAD  *  1000 )  ( I NPUT (  I )  ♦ I  =  1  *  80  ) 

1000  FORMAT ( 80A1 ) 

WRITE(  IWRIT*1100)  (  I  NPUT (  I  )  *1  =  1*80) 

1100  FORMAT ( 1H  *80A1) 

ICARD= ICARD+1 
I VLD=  0 
I EXP=0 
I VAL=0 
I  DEC  =  0 
I CALC=0 
I S I GN  =  0 
I DCNT  =  1 
I  MULT  *  1 
1  =  1 

120  CONTINUE 

IF ( INPUT ( I J-5440 )  110*106*110 


.  I  *  '1. 


•  ;  • 


TAMflQl  33H3  'I  /  T 
T  Q3T  1  -1 1  J  T'S  2UOOOJMA 


,<  3 T 1  ••  G  A  C/ 


3  Ac  iT  :  t  -o3T/U  I  O/I/IAT  CD  -ID'., 
re  I J  I  •  !  '1  ■  T  MTIv  31  S‘JU2  :A  -  •a  -  s 

2?UJAV  J  A  3  >1  M  DAU  ATHOD  530  T  D  /  = 

.  i  *  '  -  * 

3D1V3]  TU9HI  -03  3 


VI 


I  ' 


D 


)hr3J  ♦()'•(.).  I 

(i)i  s  r  ) 

'  .  «  S’  S'  ’  •  1  S'  S'  '  '  ’ 

\o\< 

xai=»TiHwi 

X  =  T  /  D I  I 
X  *T/Dfl I 

»  -  i  *  (  S  "  :  i  ■  ■  »  S' 

l  .  !  )  ( 

(I  *  I  - 1  )  ' ' '  0.  .  i 

x-t  ?S  D  I  «Q!3AD  I 
v  =  r  JVI 
C«3X3I 

0*D3G I 

i  t  r  SC  !  (  -  1  )  / 1  )  3  I 


F 


2 


C 

110  CONTINUE 

DO  101  J=  1  » 1 7 

I  F (  I  CODE ( J ) - I NPUT ( I )  )  101.102*101 

101  CONTINUE 
GO  TO  150 

102  GO  TO  (200*300*30G*3U0*300*30U*3Q0»3Q0*300»300*300» 

1400*500.500*700*300.600)  »  J 

200  IF(IVLD)  150*105*210 
210  CALC= 1 

GO  TO  711 

300  I  VLD= 1 

I  CALC  =  0 

I  F (  I  DEC )  150  *301  *302 

301  IVAL= IVAL*10+(J-2 ) 

GO  TO  105 

302  RVAL=RVAL+( J-2.0 ) / 1 0 . 0** I DCNT 
I  DCNT= I DCNT  +  1 

GO  TO  105 

400  IF(IVLD)  150*150*401 

401  IF(IEXP)  150*402*150 

402  I EXP= 1 

IF(IDEC)  150*404*403 

403  RV (  IRCNT ) =RVAL*IMULT 
GO  TO  405 

404  RV (  IRCNT )  =  I VAL*IMULT 

405  I  MULT  =  1 
I  VLD  =  0 

I S I GN=0 
I DEC=0 
I V  A  L=  0 
GO  TO  105 

500  IF(ISIGN)  150*501*150 

501  IF(IVLD)  150*502*150 

502  I  S I GN  =  1 

I  F ( J“ 1 3 )  150  *  105  *503 

503  I  MULT  =  ~ 1 
GO  TO  105 

600  1=1+1 

IF ( I CODE ( 17)— INPUT ( I ) )  601*602*601 

601  DO  605  K  =  I  *80 

I F ( I CODE ( 17 )- INPUT (K  +  l >  >  605*607.605 
605  CONTINUE 
GO  TO  150 

607  IF(NA)  611*611*609 

609  DO  610  KK= I  *  K 

I  A  L  P  H (  IACNT )  =  INPUT (KK) 

610  I  ACNT= I ACNT  +  1 

611  I =  K+l 

GO  TO  200 

602  I  F ( NR )  603*604*604 
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C 

603  NR  = I RCN  T- 1 
N I = I ICNT-1 
NA=  IACNT-1 
RETURN 

604  WRITE ( IWRIT* 1002 )  ICARD 

1002  FORMAT ( 1H  ♦  • DATA  END  ENCOUNTERED  WHILE  READING  CARD  NO 
1  •  »  13) 

RETURN 

700  I  F (  I  CALC  )  150*711.712 
712  I  CALC  =  0 
GO  TO  105 

711  I F (  I  EXP  )  150.703  *702 

7  02  RV ( I R C N T ) =  R  V (  I  RCN T  )  # 1 0 • 0** ( IVAL*IMULT) 

IRCNT= IRCNT+1 
GO  TO  706 

703  I  F (  I  DEC  )  150.705.704 

704  RV (IRCNT ) =RVAL*IMULT 
I RCNT  = I RCNT  +  1 

GO  TO  706 

705  I  V ( I ICNT )  =  I VAL*IMULT 
I  I CNT= I ICNT+1 

706  I DEC=0 
I EXP=  0 
IS  IGN  =  0 
I VAL=0 

I VLD=  0 
I  MULT  =  1 
I DCNT  =  1 
GO  TO  105 

800  IF(IEXP)  150.801.150 

801  I F  <  I  DEC  )  150.802.150 

802  I VLD  = 1 
I  DEC= 1 
ICALC=0 
RVAL= I VAL 

105  1=1+1 

I  F (  I  “8 1  )  120.120.106 

106  IF(NR)  107.108.108 

108  I  F ( N I - I ICNT  +  1 )  10.20.107 

10  WRITE( IWRIT  *1003)  ICARD 

1003  FORMAT ( 1H  .'TOO  MANY  NUMERICAL  VALUES-  CARD  NO  '.13) 

40  RETURN 

20  I  F  <  NR- IRCNT  +  1 )  10.60.107 

60  I  F ( NA- I ACNT+ 1 )  10.40.107 

150  WRITE! IWRIT .1001 )  ICARD 
1001  FORMAT ( 1H  .'ERROR  IN  CARD  '.13) 

RETURN 

END 
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SUBROUTINE  FIND (  I  TT  .  I NOF  * NBLKV . I TFV * N I  V ♦ NRV » I  V ♦ R  V  » N I F 
1  ♦  NRF  *  I VF  *  RVF 
IN IOF  *  NR IOF  *  I  I  OF  *  RV I  OF ) 
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PURPOSE 

TO  SORT  A  SET  OF  TRANSFER  FUNCTION  PARAMETERS 
AND  I/O  PARAMETERS  OUT  OF  VECTORS  IV  AND  RV 


PARAMETERS 

ITT 

INOF 

NBLKV 

ITFV 
N  I  V 


NRV 

IV 


RV 
NIF 
NRF 
RVF 
I  V  F 

RVF 
N  I  OF 

NR  IOF 

I  IOF 


R  V  I  OF 


LOCATION  WHERE  THE  SEARCH  HAS  TO  START 
TOTAL  NUMBER  OF  ENTRIES  IN  NBLKV  VECTOR 
VECTOR  CONTAINING  INPUT  ID  NUMBERS  FOR 
TF  AND  ASSOCIATED  I/O 
VECTOR  CONTAINING  TF  (BLOCK)  NUMBERS 
VECTOR  CONTAINING  NUMBER  OF  INTEGERS  AS¬ 
SOCIATED  WITH  THE  TF  OR  THE  I/O  DATA  IN 
NBLKV  VECTOR 

VECTOR  SIMILAR  TO  NIV  FOR  REAL  VALUES 
INPUT  VECTOR  CONTAINING  ALL  INTEGER  VAL¬ 
UES  SUPPLIED  VIA  FFINP  AND  STORED  IN 
COM¬ 
MON 

VECTOR  SIMILAR  TO  IV  FOR  REAL  VALUES 
NUMBER  OF  INTEGERS  SORTED  OUT  IN  IVF 
NUMBER  OF  REAL  VALUES  SORTED  OUT  INTO 

VECTOR  CONTAINING  INTEGER  VALUES  RELATI¬ 
VE  TO  TF  GIVEN  IN  ITFV  VECTOR 
SIMILAR  TO  IVF  FOR  REAL  VALUES 
NUMBER  OF  CONFIGURATION  INTEGER  VALUES 
SORTED  OUT  INTO  IIOF  VECTOR 
SIMILAR  TO  IIOF  FOR  REAL  VALUES  SORTED 
OUT  INTO  RV I  OF  VECTOR 

VECTOR  CONTAINING  INTEGER  VALUES  OF  CON¬ 
FIGURATION  DATA  ASSOCIATED  WITH  TF  IN 
VECTOR  ITFV 

VECTOR  SIMILAR  TO  IIOF  FOR  REAL  VALUES 


SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 


DIMENSION  NBLKV ( 1 )  ♦  I  TFV ( 1  )  * N I  V ( 1 )  * NRV ( 1  )  *  I V ( 1 ) * R V ( 1  ) 
1 *IVF( 1 ) *  R VF (  1 
1  *  I  I  OF ( 1 >  *  R V  I  OF (  1  ) 

NFLAG= 1 
I  T  =  I  T  T 
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C  SUM  ALL  VALUES  IN  N I V ♦ NRV  UP  TO  THE  LAST  ONE. 

2  I T 1= I T-l 
I T  EM=  0 
I T  EM 1  =  0 

C  BYPASS  THE  SUMMING  POINT  IF  IT  IS  ONE. 

IF(ITl-l)  9*7*7 

7  DO  8  K= 1  *  I T 1 

I T  EM= I TEM+N I  V ( K ) 

ITEM1=ITEM1+NRV(K) 

8  CONTINUE 

9  CONTINUE 

GO  TO  (11*12) *NFLAG 

11  N I F  =  N I V ( IT  ) 

GO  TO  18 

12  N I OF  =  N I  V (  IT  ) 

C  BYPASS  THE  SEARCH  IF  NI  IS  ZERO. 

18  I  F ( N I  V ( IT)  )  50*50.20 
20  K 1  =  I T EM+ 1 

<2= I TEM+N IV ( IT) 

DO  30  KK  =  K 1 ♦ < 2 

KK1=KK-K1+1 

GO  TO  (28  *29 ) *  NFL AG 

28  IVF ( KK1 ) = IV ( KK ) 

GO  TO  30 

29  I  I  OF ( KK 1 )  =  I  V ( KK ) 

30  CONTINUE 

50  GO  TO  (51.52) .NFLAG 

51  NRF=NRV ( IT) 

GO  TO  53 

52  NR  I OF  =  NRV (IT) 

C  BYPASS  THE  SEARCH  IF  NR  IS  ZERO. 

53  I F ( NR V ( IT) )  64.64*54 

54  K1=ITEM1+1 

K2= I TEM1+NRV (  IT) 

DO  60  KK=K1»K2 

KK 1  =  K  K-K 1  +  1 

GO  TO  (58.59) * NFLAG 

58  RVF(KK1 )=RV(KK) 

GO  TO  60 

59  RVIOF (KK1 ) =RV(KK  ) 

60  CONTINUE 
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C  SEARCH  FOR  CORRESPONDING  I/O  DATA  IN  VECTOR  NBLKV • 

64  I F ( NFLAG-2  )  65  *  120*  120 

65  K 1 = I TF V  (  I  T  )  -4-1 00 
DO  100  KKS 1  *  I NOF 

I  F ( NBLKV ( KK) -K1 )  100*70*  100 

70  NFLAG=NFLAG+1 
I  T  =  KK 
GO  TO  2 
100  CONTINUE 
120  RETURN 
END 
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C 

SUBROUTINE  GTCC1 ( GA I N *  DEL A Y * T LAG  * NCD *  I  2  *  I  3  » RWO* WCC ) 

C  PURPOSE 

C  TO  PROVIDE  CONTROLLER  CONSTANTS  FOR  A  FIRST  ORDER 

C  LAG  ACCORDING  TO  TYPE  OF  CONTROLLER  * CR I  TER  I  A 

C  AND  DISTURBANCE ( SEE  USER'S  MANUAL  FOR  DETAILS) 

C 

C  PARAMETERS 

C  GAIN  =  PROCESS  GAIN 

C  DELAY  =  TIME  DELAY  (ABSOLUTE  VALUE) 

C  T  L AG  =  TIME  LAG 

C  NCD  =  CODE  NUMBER  FOR  THE  CONTROLLER 

C  P=4*PI=5*PID=6 

C  12  =  CODE  FOR  THE  CRITERION  (1  TO  8) 

C  13  =  CODE  FOR  THE  DISTURBANCE  (1  OR  2) 

C  RWO  =  OUTPUT  VECTOR  CONTAINING  P*PI*PID  CONSTANTS 

C  W CC  =  VECTOR  CONTAING  NUMERICAL  VALUES  USED  IN 

C  CALCULATING  THE  CONTROLLER  CONSTANTS 

C 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

C  NONE 

C 

DIMENSION  RWO ( 1 ) *WCC( 1 ) 

R=DELAY/TLAG 

RG=R*GAIN 

K=NCD-3 

GO  TO  (100*200*300 ) *K 

100  GO  TO(liO*llO»llO»ll 0*110*160*170*180)  ♦  12 

110  KK  = ( I2-l)*2  +  l 
A= WCC ( KK ) 

B  =  WCC ( K+l  ) 

R WO ( 1 ) = ( 1.0/GAIN) *A*R** ( -B ) 

RETURN 

160  RWO ( 1 ) = ( 1.0 /GAIN ) *R** ( -1 .0 ) +0.333 
RETURN 

170  GO  TO( 175  *175  )  ♦  13 
175  R W 0 ( 1 )=0.7/RG 
RETURN 

180  GO  TO (185  *  185  )  ♦  I  3 
185  RWO( 1 ) =0. 3/RG 
RETURN 
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200  GO  TO(21Q*21Q*210*210»21Q*26Q»270»280)*I2 

210  KK= ( 12-1 )#4  +  l 
A  =  WCC ( KK+10 ) 

B  =  WCC  (  KK.+  1 1  ) 

C=WCC (KK+12  ) 

D  =  WCC ( KK+13  ) 

RWO ( 1 )= (  1  • 0 /GA I N  )  *A*R** ( -B  ) 

RWO ( 2 ) =TLAG*C*R**D 
RETURN 

2 60  RWO ( 1)=(1*0/GAIN)*(0.082+R**(-1.0)) 

RWO ( 2 ) = ( 3.33*R+Q .  3*R**2 ) / ( 1 . 0+2 . 2 *R ) 

RETURN 

270  GO  TO(273*275)  *  1  3 

273  RWO( 1 ) =Q.6/RG 

RWO ( 2 ) =RWO ( 1 ) *DELAY*GAIN/0.6 
RETURN 

275  RWO( 1 ) =Q.7/RG 

RWO ( 2 ) =RWO ( 1 ) *DELAY*RG/Q  •  3 
RETURN 

280  GO  TO  (283  *285)  »  13 

283  RWO( 1 ) =0 . 35/RG 

RWO (2 ) =  RWO ( 1 ) *DELAY*GA IN/0.3 
RETURN 

285  RWO ( 1 ) =  0 • 6 /RG 

R  W  0 ( 2 5  =  RWO ( 1 ) *DELAY*RG/0. 15 
RETURN 

300  GO  T0(310»310*310»310*310*360»370*380) *12 

310  KK= ( 12-1 ) *6+1 
A  =  WCC ( KK  +  30  ) 

B  =  WCC ( <K+ 31  ) 

C  =  WCC ( KK  +  32  ) 

D= WCC ( KK+33 ) 

E  =  WCC ( KK+34 ) 

F= WCC ( KK+35 ) 

RWO ( 1 ) = ( 1 • 0 /GA I N ) *A*R** ( -B ) 

RWO (2 ) =TLAG*C*R**D 
RWO ( 3 ) =TLAG*E*R**F 
RETURN 

3 faO  RWO ( 1 )  =  ( 1* 0/GAIN )*( 0.2  70  +  1 .35 *R** (-1.0  )  ) 
RWO (2 )=TLAG*(2.5*R+0.5*R**2.0 ) / ( 1 . 0+0 . 6*R ) 
RWO ( 3 )=TLAG*R*0.37/{ 1 .0  +  0.2 *R  ) 
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RETURN 

370  GO  10(3  73*375  )  »  13 

373  RWO( 1 ) =Q.95/RG 

RWO ( 2 ) =  RWO ( i )*DELAY*GAIN/0.7 
RWO ( 3 ) =0  .45*DELAY/ ( RG*RWO( 1 )  ) 

RETURN 

375  RWO( 1 ) =1 . 2/RG 

RWO ( 2 ) =RWO ( 1 ) *DELAY*RG/0*6 
RWO(3)=0.5*DELAY/ (RG*RWO( 1  )  ) 

RETURN 

380  GO  TO(383  *385  )  ♦  13 

383  RWO( 1 ) =Q.6/RG 

RWO ( 2 ) =RWO( 1 ) *DELAY*GAIN/0.6 
RWO ( 3 ) =0 • 3* DELAY / (RG*RWO( 1  )  ) 

RETURN 

385  RWO ( 1 ) =0 • 95 /RG 

RWO( 2 ) =RWO ( 1 ) *DELAY*RG/0 • 4 
RWO (3 ) =0*4 * DELAY/ ( RG^RWO ( 1  )  ) 

RETURN 

END 
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SUBROUT 

PURPOSE 
TO 

NOTES 

WR 


END 
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NE  TWA  I T 


OUTPUT  A  MESSAGE  ON  THE  1816  WAITING  FOR  INPUT 
TTEN  IN  ASSEMBLER 


ENT 

TWAIT  DC 

LIBF 

DC 

MDX 

BSC 

END 


TWAIT 

TYPEN 

/G005 

*-3 

TWAIT 


l;  I  - 


TcWl  Cl  J/i  I  T  1  A  /.  dial  3HT 


#-* 
.  1YT 


TIAWT  '/ITUO«llua 

3DA  .c  :  A  TU^TUO  (  T 

S3  TO 

«3jav jaaA  /:  ^ 3 t t i j 


do  TIAWT 
3Q I  J 

D2Q 
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SUBROUTINE  MATPR  ( L * L 1 » A  * W A » LUNP ) 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PURPOSE 

TO  PRINT  OUT  A  MATRIX  ARRANGED  COLUMNWISE 
IN  TWO  DIMENSIONAL  FORM 

PARAMETERS 

L  =  NUMBER  OF  ROWS  IN  MATRIX  A 
LI  =  NUMBER  OF  COLUMNS 
A  =  INPUT  VECTOR  OF  LENGTH  L*Ll 
WA  =  WORKING  VECTOR  OF  LENGTH  LI 
LUNP  =  LOGICAL  UNIT  NUMBER  FOR  OUTPUT 


SUBROUTINES 

NONE 


AND  FUNCTION  SUBPROGRAMS  REQUIRED 


NOTES 


METHOD  LIMITED  TO  LX6  TWO-DIMENSIONAL  MATRIX 


DIMENSION  A ( 1  )  *WA( 1 ) 

DO  2  1  =  1  ♦  L 
DO  1  J= 1 »  L 1 
K=  I  +  ( J-l ) *L 
WA ( J) =A (K ) 

1  CONTINUE 

WR  I  TE ( LUNP » 101  )  ( WA ( J ) *  J= 1  *  LI ) 

101  FORMAT ( 1H0 *10E12. 4/ ) 

2  CONTINUE 
RETURN 
END 
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C 


C 

SUBROUTINE  MATCO  ( TDV * NRW * NCL . B I NP * N2 *  BOUT . N1 >MV ♦ NU 
1  * UD  ) 

C  PURPOSE 

C  TO  COMPRESS  A  SPARSE  MATRIX  TO  A  NON-ZERO  COLUMN 


c 

r 

ONE 

C 

PARAMETERS 

C 

TDV 

TIME  DELAY  ASSOCIATED  WITH  INPUT 

MATRIX 

c 

NRW 

- 

NUMBER  OF  ROWS  OF 

INPUT  MATRIX  BINP 

c 

NCL 

= 

NUMBER  OF  COLUMNS 

OF  BINP 

c 

BINP 

r 

INPUT  MATRIX 

c 

N2 

= 

NUMBER  OF  COLUMNS 

OF  OUTPUT  MATRIX  BOUT 

c 

ALSO  LENGTH  OF  VECTORS  NU  AND  UD 

c 

BOUT 

= 

OUTPUT  MATRIX  (NO 

ZERO  COLUMN) 

c 

N1 

s= 

LENGTH  OF  VECTOR 

MV 

c 

MV 

= 

VECTOR  CONTAINING 

N2  VALUES 

c 

NU 

= 

VC  TOR  CONTAINING 

NON  ZERO  COLUMN 

NUMBER 

c 

UD 

VECTOR  CONTAINING 

VALUES  OF  TIME 

DELAY 

c 

FOR  EACH  NON-ZERO 

COLUMN 

C 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

C  NONE 

C 

C  NOTES 

C  IF  MORE  THAN  ONE  MATRIX  IS  TO  BE  COMPRESSED  N1 

C  AND  N2  MUST  BE  INITIALIZED  TO  ZERO  AHEAD  OF  THE 

C  FIRST  ONE  WHILE  TDV  HAS  TO  BE  SET  EVERY  TIME  IT 

C  DIFFERS  FROM  ITS  PREVIOUS  VALUE 

C 

DIMENSION  BINP( 1 ) *BCUT ( 1 )  *  MV ( 1 )  » NU ( 1 )  » UD ( 1 ) 

C  SET  INITIAL  VALUES. 

J=1 

NCC  T  =  0 
NS  =  0 

5  J 1  =  J+NRW- 1 

SEARCH  FOR  A  NON  ZERO  COLUMN. 

NCCT=NCCT+1 
DO  20  I=J.Jl 
IF (BINP ( I ) )  10*20.10 
10  N2=N2+1 
NS=NS+1 
NU ( N2 ) =NCCT 
UD ( N2 ) =TDV 


C 
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C  SET  THIS  COLUMN  INTO  BOUT. 

DO  15  K  =  J  *  Jl 
K1=K-J+1+ ( N2-1 ) *NRW 
BOUT ( K 1 ) =  B I N  P ( K ) 

15  CONTINUE 

C  EXIT  FROM  THIS  COLUMN. 

GO  TO  30 
20  CONTINUE 
30  J= J+NRW 

I F ( NCCT-NCL )  5*40*40 
40  N 1 =N1+1 
MV ( N1 ) =NS 
RETURN 

END 
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C 


C 

SUBROUTINE  CHEQN  ( N » A  * WA » WB ♦ WC *  V ♦ R ♦ I ER ) 

C  PURPOSE 

C  TO  DETERMINE  THE  COEFFICIENTS  OF  THE  CHARACTER  I S- 

C  TIC  EQUATION  OF  A  GIVEN  MATRIX  BY  USING  KRYLOV'S 

C  METHOD. ( A.RALSTOW ♦ ' ' A  FIRST  COURSE  IN  NUMERICAL 

C  ANALYSIS  » MCGRAW-HILL ♦  1965 ) 

C 

C  PARAMETERS 

C  N  =  DIMENSION  OF  GIVEN  N*N  MATRIX  A 

C  A  =  GIVEN  VECTOR  OF  DIMENSION  N*N 

C  WA  =  WORKING  VECTOR  OF  DIMENSION  N 

C  WB  =  WORKING  VECTOR  OF  DIMENSION  N 

C  WC  =  WORKING  VECTOR  OF  DIMENSION  N*N 

C  V  =  WORKING  VECTOR  OF  DIMENSION  N  INTERNALLY 

C  GENERATED 

C  R  =  RESULTING  VECTOR  OF  COEFFICIENTS  OF  DIMENSION 

C  N+l  ORDERED  FROM  LOW  TO  HIGH  POWERS 

C  I  ER  =  ERROR  CODE  =0  O.K.=  1  SINGULAR  MATRIX  FOUND 

C  IN  SOLVING  SYSTEM  OF  SIMULTANEOUS  EQUATIONS 

C 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

C  GMPRD  *  S I MQ 

C 

DIMENSION  A ( 1 )  * W A (  1  )  » W  B  (  1)  * W C ( 1 ) *V( 1)  »R( 1) 

C  SET  WORKING  VECTOR  V 

DO  10  I =1 *N 
V(  I  ) = FLOAT ( I ) 

10  CONTINUE 

C  SET  A  UNIT  MATRIX  IN  WB 

KK  =  0 
M  =  N*N 

DO  1  I  =  1  *  M 
WC ( I ) =0.0 

1  CONTINUE 
DO  2  1  =  1  *N 
M= ( 1-1 >*N+I 
WC ( M) =1 .0 

2  CONTINUE 

C  MULTIPLY  THE  MATRIX  WB  BY  THE  GIVEN  VECTOR 

CALL  GMPRD  ( WC ♦ V ♦ WB *N * N t 1 ) 

GO  TO  51 
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3  CALL  GMPRD  ( A  * WA * WB ♦ N * N  ♦  1  ) 

C  BRANCH  OUT  IF  HAVE  REACHED  MATRIX  A**N  TIMES  V 
IF(KK-N)  51*54*54 

C  TRANSFER  R  TO  THE  COEFFICIENT  MATRIX  WC 

51  DO  52  I =1 *N 
M=KK#N+ I 
WC(M) =WB( I ) 

52  CONTINUE 

C  TRANSFER  WB  TO  WA 

DO  53  I  =  1  * N 
WA ( I ) = W B (  I  ) 

53  CONTINUE 
KK=KK+1 
GO  TO  3 

C  PREPARE  THE  CONSTANT  VECTOR 

54  DO  55  1=1 *N 
WB ( I ) = -WB ( I ) 

55  CONTINUE 

C  SOLVE  THE  SIMULTANEOUS  EQUATIONS 

CALL  SIMQ  ( WC  * WB  »  N ♦ I ER ) 

IF(IER)  57*57*56 

56  RETURN 

57  DO  58  1=1 »N 
M=N- I +1 

R ( M ) = WB ( M ) 

58  CONTINUE 

R  (  N+ 1 )=1.0 

RETURN 

END 
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C 


SUBROUTINE  BART ( M * XCOF ♦ COF  * COF 1 ♦ ROOTR *  ROOT  I *CHECK*LIMI 
1 *IER) 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PURPOSE 

TO  DETERMINE  ALL  ROOTS  OF  A  REAL  POLYNOMIAL 
USING  BAIRSTOW  METHOD 


PARAMETERS 

M 

XCOF 

COF 
COF  1 
ROOTR 

ROOT  I 

CHECK 

LIMI 

IER 


ORDER  OF  POLYNOMIAL 

VECTOR  OF  M+l  COEFFICIENTS  ORDERED  FROM 
LOW  TO  HIGH  POWER 
WORKING  VECTOR  OF  LENGTH  M+l 
WORKING  VECTOR  OF  LENGTH  M+l 
RESULTANT  VECTOR  OF  LENGTH  M  CONTAINING 
REAL  PARTS  OF  ROOTS  OF  POLYNOMIAL 
RESULTANT  VECTOR  OF  LENGTH  M  CONTAINING 
IMAGINARY  PARTS  OF  RROTS 
VECTOR  OF  DIMENSION  M  CONTAINING  LAST 
COEFFICIENTS  OF  APROXIMATING  POLYNOMIAL 
MAXIMUM  NUMBER  OF  ITERATIONS 
ERROR  CODE  =0  O.K.*=l  M  LESS  THAN  1,=2 
UNABLE  TO  DETERMINE  ROOT  IN  LIMI 
ITERATI¬ 
ONS  ON  10  STARTING  VALUES.FOR  SECOND 
COUPLE  OF  ROOTS  INITIAL  VALUES  ARE  40 
=3  HIGHEST  ORDER  COEFFICIENT  IS  ZER0»=4 
ZERO  DENOMINATOR  IN  KRAMER'S  RULE 


SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
SOLEQ 


DIMENSION  XCOF ( 1  )  *CCF( 1 ) *C0F1 ( 1 )  * ROOTR ( 1 )  *  ROOT  I ( 1 ) 
1 »CHECK < 1 ) 

N  =  M 
I  ER  =  0 

C  ZERO  SPECIAL  COUNTERS 


ISC  =  0 
I  TR  =  0 


C  SET  ROOT  COUNTER 


I  R  =  1 
I  RR  =  2 

EPSS= 1 • QE-07 
EPS= 1 • 0E-06 
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C  CHECK  FOR  HIGHEST  COEFFICIENT 
AA=XCOF (  N  + 1 ) 

IF(ABS(AA)-1.0E-Q7)  25*25*12 

C  CHECK  FOR  DEGREE  OF  POLYNOMIAL 

12  I  F ( N-2 )  14*400*45 
14  IF(N-l)  16*300,300 
16  I ER= 1 
RETURN 
25  I ER=  3 
RETURN 

C  SET  INITIAL  VALUES 

45  C0=0.0 
E0=0 • 0 


C  SET  INITIAL  VALUE  COUNTER 

47  I N-0 
50  I C  T  =  0 

C  SET  C  AND  D  TO  CURRENT  VALUES 


C  =  CO 
D  =  EO 
IN= IN  +  1 


C  CALCULATE  B‘S  AND  STORE  THEM  IN  COF  VECTOR 


NX  =  N 

NXX=N+1 

KL=N-1 

COF ( NXX ) =XCOF ( NX  X ) 

51  COF(NX)s=XCOF(NX)+C*COF(NXX) 

DO  56  Js 1  * KL 
J1=KL-J+1 
J2S  Jl*fl 
J3= J2+1 

COF (Jl )»XC0F(J1 )+C*COF(J2)+D*COF(J3) 
56  CONTINUE 

C  CALCULATE  E*S  USING  COF1  VECTOR 

COF 1 (NXX)*  COF ( NXX ) 

COFKNX  )=COF(NX  )+C*COFl  (NXX) 

NY=N-2 
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C  CHECK  FOR  DEGREE  OF  POLYNOMIAL  TO  DETERMINE  REMAINING  COF1 
C  CHECVALUES 

IF(NY-l)  60*60*58 

58  DO  59  J  =  1  *  NY 
MT  =KL- J+ 1 

MT 1-MT+l 
MT  2  =  MT  +  2 

COF1CMT )=COF(MT )+C*COFl ( MT 1 )+D*COFl (MT2 ) 

59  CONTINUE 
GO  TO  69 

60  COFl(KL)=COF(KL)+C*COFl(NX)+D*COFl(NXX) 

C  COF  AND  COF 1  VECTORS  ARE  FOUND 
C  TRANFER  LAST  COEFFICIENTS 

69  BO  =  COF ( 1 ) 

BF=COF (2 ) 

C  CHECK  FOR  CONVERGENCE  USING  COF  AND  COF1  JUST  FOUND 
C  CHECK  FOR  ZERO  XCOF(l)  AND  XCOF(2) 


I  F ( ABS ( XCOF ( 1 ) ) -EPS ) 

480  IF(ABS(XCOF(2) )-EPS) 

481  IF (ABS(XCOF(2) )-EPS) 


480 *480  #481 
482*482*484 
433*483*499 


C  START  CHECKING  FOR  CONVERGENCE 


482 
490 

483 
487 
4  84 

499 

500 


IF (ABS ( BO 
IF (A3SIBF 
I  F ( ABS ( BO 
I  F ( ABS ( BF 
I  F ( ABS ( BO 
IF (ABSCBO 
IF (ABS ( BF 


-EPS)  490 
-EPS)  99* 
-EPSS* ABS 
-EPS)  99* 
-EPS)  500 
-EPSS* ABS 
-EPSS* ABS 


*490*510 
99*510 
(XCOF ( 1 ) ) ) 
99*510 
*500*510 
(XCOF ( 1) ) ) 
(XCOF (2)  )  ) 


487.487*510 

500*500*510 

99*99*510 
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FIND  DENOMINATOR  USED  IN  KRAMER 


S  RULE 


510  DEN=  COF 1 ( 3 ) *COF 1(3)-  COF 1 ( 2 ) *COF 1 ( 4 ) 


C  CHECK  DENOMINATOR 


I  F ( ABS ( DEN ) -EPS ) 

70*70*75 

70 

IF ( IN-10)  71*72* 

72 

71 

CO=CO+l .0 

EO=EO+0 • 5 

GO  TO  50 

72 

I  ER  =  4 

RETURN 
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C  COMPUTE  INCREMENTS  TO  C  AND  D 

75  DC=<COF(l)*COFl<4)-COF(2)*COFl<3) ) /DEN 
DD“(COF(2)*COFl(2)-COF( l)*COFl(3) ) /DEN 

C  INCREMENT  C  AND  D 

C=C+DC 

D=D+DD 

C  CHECK  ON  C  *  DC  AND  D  *  DD 
ICT=ICT+1 

C  CHECK  FOR  NUMBER  OF  ITERATIONS 
IF(ICT-LIMI)  51*80.80 
C  CHECK  FOR  INITIAL  VALUE  COUNTER 

80  IF(IN-IO)  81*85.85 

C  INCREMENT  INITIAL  VALUES 

81  CO=CO+1*0 
EO=EO+l • 0 
GO  TO  50 

85  IF(ITR)  86*86*87 
C  SET  ERROR  CODE  TO  2 

86  I  E R  =  2 
RETURN 

87  ISC=ISC+1 
GO  TO  199 

C  SET  LAST  COEFFICIENTS  INTO  CHECK  VECTOR 

99  CHECK ( I R ) =B0 
CHECK ( IRR  >=BF 

CALL  S0LEQ(C*D*X1R*X2R*X1 I *X2I ) 

C  SET  ROOTS  IN  VECTORS  ROOTR*ROOTI 

ROOTR ( IR ) =  X 1 R 
ROOTR ( IRR ) =X2R 
ROOT  I  (  I  R ) *X1 1 
ROOT  I ( IRR )«X2I 


C  STEP  COUNTER  FOR  ROOTS 
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I  R= I R+2 
I  RR= I RR  +  2 

C  CHECK  FOR  ORDER  OF  NEW  POLYNOMIAL 

IF(N-4)  149*180*190 

C  FIND  LAST  ROOT 

149  QC=-COF(NX)/COF(NXX) 

I F ( ABS ( QC ) “EPS )  151*151*155 
151  ROOTR ( I R ) - 0 • 0 
ROOT  I  (  IR) =0.0 
RETURN 

155  ROOTR ( I R ) =QC 
ROOT  I ( IR) =0.0 
RETURN 

180  Al=-COF(NX) /COF(NXX) 

Bl=-COF (KL) /COF ( NXX ) 

CALL  S0LEQ(A1 *B1 *X1R»X2R*X1 I *X2I ) 

ROOTR ( IR ) =X1R 
ROOTR ( IRR ) =  X2R 
ROOT  I < I R ) =X 1 1 
ROOT  I ( IRR  )=X2I 
RETURN 

C  TRANSFER  B'S  VALUES  INTO  XCOF  VECTOR  TO  RESTART 

190  DO  192  L=  1  *KL 
I  2  =NXX-L+ 1 
11=12-2 

XCOF (  11 )=COF(  12) 

192  CONTINUE 

C  REDUCE  DEGREE  OF  POLYNOMIAL  AND  RESTART 

N  =  N-2 
I T  R= I TR  +  2 
ISC  =  0 

199  IF(ISC-l)  200*210*220 

200  A  I =C 
B I  =D 
CO  =  A  I 
EO  =  B  I 

GO  TO  47 
210  CO  =  A  I 
EO=-B I 
GO  TO  47 

220  I F ( I  SC-2 )  235  *235  *240 
235  EO=B I 
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CO=-A I 
GO  TO  47 

240  IFUSC-3)  250*250*86 

250  EO=-B I 
CO  =  -A I 
GO  TO  47 

C  COMPUTE  SINGLE  ROOT 

300  ROOTR ( 1 ) *-XCOF ( 1 ) /XCOF ( 2 ) 

RETURN 

C  COMPUTE  SECOND  ORDER  POLYNOMIAL 

400  Al--XCOF(2)/XCOF(3) 
Bl=-XCOF(l)/XCOF(3) 

CALL  SOLEQU1 »B1 *X1R*X2R*X1I *X2I ) 

ROOTR ( 1 )*X1R 

ROOTR (2 )=X2R 

ROOT  I ( 1 )*X1 I 

ROOT  I  (2  )  =X2  I 

RETURN 

END 
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c 

SUBROUTINE  SOLEQ ( A  1 » B 1  * X 1R *X2R * X 1  I  * X2 I  ) 

C  PURPOSE 

C  TO  FIND  AND  IDENTIFY  ROOTS  OF  A  SECOND  ORDER 

C  POLYNOMIAL  OF  THE  TYPE  A*X**2+B*X+C  =  0 

C 

C  PARAMETERS 

C  Al=-B/A 

C  B 1 =-C / A 

C  X1R.X2R  REAL  PART  OF  ROOTS 

C  XII  ♦  X2 1  IMAGINARY  PART  OF  ROOTS 

C 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

C  NONE 

C 


X 1 R  =  0  •  0 
X2 R  =  0  •  0 
XI  1  =  0*0 
X2  1=0.0 
EPS1= 1 .QE-03 

C  CHECK  FOR  ABSOLUTE  MAGNETUDE  OF  C  AND  D 

IF (ABS< A1 J-1.0E-06 )  8.8*10 
8  IF (ABS(B1 )“1*CE“06)  30.30*12 
10  IF ( ABS ( B 1 J-1.0E-06)  13.13.14 

13  X2 R  =  A 1 
GO  TO  30 

12  A 1 =0 • 0 

14  DET=A1*A1+4.0*B1 
ABD= ABS ( DET ) 

TEMP=SQRT ( ABD) /2.0 

C  FIND  LARGEST  BETWEEN  TEMP  AND  Al/2.0 

IF ( ABS  ( Al/2*0 ) -TEMP )  40.40.30 

C  COMPARE  THE  TWO  VALUES 

40  IF (ABS (Al/2.0 )-EPSl*TEMP )  19.19*60 
50  IF(TEMP-EPSl*ABS(Al/2.0) )  42.42*60 
42  XI R= Al/2.0 
X2R  =  A 1 /2 • 0 
GO  TO  30 
60  X 1 R  =  A  1 /2 • 0 
X2R=Al/2.0 
19  IF(DET)  21*21*22 
21  XII =TEMP 
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C 

X2I=-TEMP 
GO  TO  30 
22  X1R-X1R+TEMP 
X2R=X2R-TEMP 
30  RETURN 
END 
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C 

SUBROUTINE  E I GCK < NOPT ♦ L ♦ WR . W I .Wl *W2 *NPR >PRR *PRI  tCRIT 
1 *DELT iDELTH* 

ISM AST  *LUNO*Ll*IER) 

C  PURPOSE 

C  TO  CHECK  FOR  POSITIVE  E I GENVALUES * SH  I  FT  THEM  TO 

C  THE  ORIGIN  <  SMALLEST  =0)  AND  DELETE  THOSE  THAT 

C  CONTRIBUTE  LESS  THAN  A  SPECIFIED  CRITERION  TO  THE 

C  OVERALL  RESPONSE 

C 

C  PARAMETERS 


c 

NOPT 

a 

OPTION  NO. 5  (=0  STOP  FOR  += )  EI.V>=1  CO¬ 

c 

NTINUE) 

c 

L 

a 

LENGTH  OF  INPUT  VECTORS  WR.WI 

c 

WR 

a 

INPUT  VECTOR  CONTAINING  REAL  PART  OF 

c 

El  .VS 

c 

WI 

a 

INPUT  VECTOR  CONTAINING  IMAGINARY  PART 

c 

OF  El. VS 

c 

W1  *W  2 

a 

WORKING  VECTORS  OF  LENGTH  L 

c 

NPR 

s 

NUMBER  OF  POSITIVE  El. VS 

c 

PRR 

a 

VECTOR  CONTAINING  REAL  PART  OF  POSITIVE 

c 

El  .VS 

c 

PR  I 

a 

VECTOR  CONTAINING  IMAGINARY  PART  OF  PO¬ 

c 

SITIVE  EI.VS 

c 

CRIT 

a 

ABSOLUTE  VALUE  OF  THE  EXPONENT  IN  THE 

c 

EXPRESSION  10**<-CRIT>  USED  FOR  DELETING 

c 

c 

El  .VS 

S- 

c 

DELT 

a 

TIME  INTERVAL  (SAMPLING  TIME) 

c 

DELTH 

a 

TIME  SUBINTERVAL  USED  FOR  CALCULATING 

c 

MATRIX  H ( T  ) 

c 

SMAST 

a 

REAL  PART  OF  SMALLEST  (NEGATIVE)  EI.V 

c 

LUNO 

a 

LOGICAL  UNIT  NUMBER  FOR  CURRENT  OUTPUT 

c 

DEVICE 

c 

LI 

a 

NEW  DIMENSION  OF  REDUCED  EI.VS 

c 

IER 

a 

ERROR  CODE  =0  O.K.»=l  WRONG  REDUCTION 

c 

=2  ALLOWED  POSITIVE  ROOT  WILL  CAUSE 

c 

OVER- 

c 

FLOWUGT.  EXP  (  80  )  )  »  =  3  POSITIVE  ROOT 

c 

c 

FOUND-PROGRAM  STOPPED  AS  REQUESTED 

c 

SUBROUTINES 

AND  FUNCTION  SUBPROGRAMS  REQUIRED 

c 

c 

ORDER 

DIMENSION  WR< 1) *Wl <1>  *W1< 1) *W2<1)  *PRR( 1  )  *  PR  I ( 1 > 

IER  =  0 
L1*L 
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C 


C  ZERO  COUNTERS 

KK  =  0 
NPR  =  0 
NNR  =  0 

C  ZERO  VECTORS  PRR*PRI  AND  WORKING  VECTORS  W1*W2 

DO  5  1*1 » LI 

PRR  ( I )*0.0 
PRI  ( I )*0.0 
W1 ( I ) =0.0 
W2 (  I  ) *0.0 
5  CONTINUE 

C  CHECK  FOR  POSITIVE  REAL  PART  OF  EIGENVALUES 

DO  21  I - 1  *  LI 
RR=ABS(WR< I ) ) 

IF(RR-1.E~06)  20*20*8 
8  CONTINUE 

I  F ( WR ( I ) )  20*20*10 
10  NPR*NPR+1 

C  TRANSFER  POSITIVE  ROOTS  INTO  VECTOR  PRR  AND  PRI 

PRR ( NPR ) =WR ( I ) 

PRI (NPR )=WI ( I ) 

C  DECIDE  ACCORDING  TO  OPTION 

IF(NOPT)  12*12*15 

12  WRITE (LUNO»13 ) 

13  FORMAT ( 1H  * / IX  * • POS I T I VE  ROOT  FOUND  -  SYSTEM  UNSTABLE' 
1/1X* • EXECUT 

ION  STOPPED  AS  REQUESTED '/ IX *• TO  PROCEED  CHANGE  OP(6) 

1  TO  1'/) 

I  ER  =  3 
RETURN 

15  WRITE! LUNO  *  16  ) 

16  FORMA T ( 1H  * / 1 X » ' POS I T I VE  ROOT  FOUND  -  SYSTEM  UNSTABLE' 
1/1X* • PROGRA 

1  IS  CONTINUED  AS  REQUESTED'/) 

GO  TO  21 
20  NNR=NNR+1 

C  TRANSFER  NEGATIVE  ROOTS  INTO  W1  AND  W2 


W1 ( NNR ) =  WR ( I ) 
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C 

W2 (NNR  )  = W  I  (  I  ) 

21  CONTINUE 

C  CHECK  FOR  PROPER  REDUCTION 

IF ( Ll-NPR-NNR )  30*31*30 

30  I  ER=  1 
RETURN 

31  CONTINUE 

C  ORDER  ELEMENTS  IN  W1  AND  W 2  VECTORS 

IF(NNR-l)  33*33*32 

32  CALL  ORDER (NNR*W1 *W2 ) 

33  IF(NPR-l)  35*35*34 

34  CALL  ORDER(NPR*PRR*PRI ) 

C  DEFINE  SMALLEST  NEGATIVE  ELEMENT 

35  SMAST=W 1(1) 

C  PERFORM  SHIFT  TO  THE  ORIGIN 

DO  50  1  =  1  *  NNR 
W1  (  I  ) =W1 (  I  ) -SMAST 
50  CONTINUE 

IF ( NPR-1 )  70*60*60 

60  DO  61  1=1 » NPR 

PRR ( I ) =PRR ( I ) “SMAST 

61  CONTINUE 

C  CHECK  FOR  POSSIBLE  OVERFLOW 

IF(PRR(NPR)*DELT-80.Q)  70*70*62 

62  WRITE(6*63) 

63  FORMAT ( 1H0 » '  ALLOWED  POSITIVE  ROOT  WILL  CAUSE  OVERFLOW 
1—  PROGRAM 

1  IS  STOPPED  AT  THIS  POINT'/) 

I  ER-2 
RETURN 

DELETE  THOSE  EI*VS  FOR  WHICH  EXP ( DELTH*LAMBDA ) • LE • 10** 
(-CRI T ) 

70  COMP=2.3026*ABS( CRIT ) /DELTH 
DO  72  1  =  1  *  NNR 
RA  =ABS ( W1 ( I )  ) 

IF(RA-COMP)  72*72*75 
72  CONTINUE 
KK=NNR 
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C 

GO  TO  74 

75  KK=I-1 
74  CONTINUE 

C  STORE  ROOTS  BACK  INTO  THE  ORIGINAL  VECTORS  WR  AND  Wl 

DO  76  1  =  1* KK 
J=KK-I+1 
WR ( I ) =W 1 ( J ) 

WI ( I)=W2( J) 

76  CONTINUE 

IF(NPR)  100*100*80 
80  DO  85  I  =  1  *  NPR 
J  = I+KK 

WR ( J ) =PRR (  I  ) 

wi ( j)*pri  m 

85  CONTINUE 
L 1 =KK+NPR 
100  RETURN 
END 


... 


'  s 


i  ,  ■  .-''7  i  /.0  : 


3 

,M‘  T  ',0 

l-i  ev 

JU/ 1 T  V C  )  4  V 

0T.  I  7-  :  ;;TC(  •  '-/OTo 

>  ♦  I  >\ 
i  -t  I  - 

: ,  ;  :  w  =  t  ;  ) : 
i  t  )  SW-  (  I  )  IV: 

..III  /  '  -  .)  M 
■  f  *  1  i  ‘  1  ;  : 

- 1  . !  r 

XM-  I  -  . 
:;)P;VMU:  • 

(  ;  )  i  :  (  u  -  . 

it,  '  ::  S v' 

»•.  >•  ♦•>>-•  r  j 

v  ,-.T  v-1  O.i  1 


F 


28 


C 


SUBROUTINE  ORDER < LI *A *B ) 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


PURPOSE 

TO  ORDER  A  SET  OF  NUMBERS  ACCORDING  TO  INCREA¬ 
SING  MAGNITUDE 


PARAMETERS 

LI 

A 

B 


=  LENGTH  OF  INPUT  VECTORS  A  AND  B 
=  INPUT  VECTOR  CONTAINING  REAL  PART  OF 
El  .VS 

*  CONTAINS  IMAGINARY  PARTS 


SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 


DIMENSION  A ( 1 ) # B ( 1 ) 


C  SET  INITIAL  VALUES 


1  =  1 
J  =  2 


C  COMPARE  TWO  CONSECUTIVE  VALUES 

4  IF(ABS(A( I ) )-ABS(A(J) ) )  10*10*5 

C  INTERCHANGE  VALUES 

5  TEMP=  A (  I  ) 

A  (  I  )  =  A  (  J  ) 

A  <  J ) =  TEMP 

C  DO  THE  SAME  THING  FOR  IMAGINARY  PARTS 

TEMP=B ( I ) 

Bl  I  )=B( J) 

B ( J ) =TEMP 
10  J=J+1 

IF(J-Ll)  4*4*15 

15  1=1+1 

IFU  +  1-L1)  16*16*20 

16  J=  1  +  1 
GO  TO  4 

20  RETURN 
END 
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C 


C 

SUBROUTINE  REORG ( L . RR . R I  * WR * W I *ND *NR *MT ♦ NC ) 

C  PURPOSE 

C  TO  REARRANGE  EIGENVALUES  IN  SPECIAL  ORDER 

C 

C  PARAMETERS 

C  L 

C  RR  *R  I 

C 

C  WR  *  W  I 

C  IMAGI 

C 

C  NR 

C  NR 

C 

C  NC 

c 

C  SUBROUTINE 

C  NONE 

C 

C  NOTES 

C  ORDERED  SEQUENCE  IS  SPECIFIED  BY  THE  VALUES  OF 

C  ND  »NR ( MT ) » NC 

C  ND  +  SUMIMT (I  ) »  1=1 *NR >  +  NC  MUST  BE  EQUAL  TO  L 

C 


=  LENGTH  OF  VECTORS  RR*RI*WR.WI 
=  INPUT  VECTORS  CONTAINING  REAL  AND  IMAGI 
NARY  PART  OF  El. VS  RESPECTIVELY 
=  OUTPUT  VECTORS  CONTAINING  REAL  AND 

NARY  PART  OF  EI.VS  IN  ORDERED  SEQUENCE 
=  NUMBER  OF  DISTINCT  EI.VS 
=  NUMBER  OF  REPEATED  EI.VS  . MULT EPL I C I TY 
NUMBERS  ARE  STORED  IN  MT  VECTOR 
=  NUMBER  OF  COMPLEX  EI.VS 

AND  FUNCTION  SUBPROGRAMS  REQUIRED 


DIMENSION  RR ( 1 ) *  R  I (1)*WR(1)*WI  (1)  *MT(1) 
EPS® 1 • 0E“06 

C  ZERO  MULTEPLICITY  VECTOR 

LT=L/2 
DO  2  I  =  1  *  LT 
MT (  I  ) =0 
2  CONTINUE 

C  SET  INITIAL  VALUES 

ND®  0 
NR  =  0 
NC  =  0 
<  =  L 
1  =  1 

C  TEST  FOR  COMPLEX  EI.VS 

3  I  F ( R I (  I  )  )  4*10.4 
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TWO  COMPLEX  EI.VS  ARE  FOUND 
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C 

4  W  I  (  K  )  =R  I  (  I  ) 

WR ( K ) =RR (  I  ) 

WI  (K-l  )=RI  ( 1  +  1) 

WR ( K- 1 >=RR< 1  +  1) 

C  STEP  COUNTER 

NC=NC+2 

C  DECIDE  ACCORDING  NUMBER  OF  REMAINING  VALUES 

I  F ( K- I -2 )  20.7.5 
C  OPERATE  A  SHIFT  TO  BASE  I 

5  KN=K-2 

DO  6  J=I.KN 
RR ( J ) =RR ( J+2 ) 

R  I  ( J)=RI { J+2) 

6  CONTINUE 

C  REDUCE  THE  ORDER  OF  THE  SYSTEM 

K  =  K-2 
GO  TO  3 

C  SHIFT  LAST  VALUE 

7  RR ( I ) =RR ( 1+2 ) 

R I  ( I ) =R I ( I +2 ) 

K  =  K-2 

GO  TO  40 
10  1=1+1 

I F ( K- I )  40.40.3 
20  K=K-2 

40  IF(K-l)  45.46.50 

45  RETURN 

46  ND=ND+1 

C  TRANFER  LAST  VALUE 

WR ( 1 ) =RR ( 1 ) 

W I  < 1 ) =R I < 1  ) 

RETURN 
50  NN=2 
1  =  1 

57  J=NN 
IS=1 

COM=RR ( I ) 

59  IF<ABS<RR<  I >-RR(J)  >-EPS)  60.60.70 
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C  STEP  MULTEPLICITY  COUNTER 

60  IS=IS+1 
WR <  K) =COM 

C  STORE  DOUBLE  ROOT 
C  REDUCE  VECTOR 

IF((J  +  1)-*K)  61*65*66 

61  KN-K-1 

DO  63  I  Is*  J  *  KN 

Nl- 1 1  +  1 

RR(  U)*RR(N1) 

63  CONTINUE 
K  =  K-1 
GO  TO  59 

65  RR ( J ) =RR ( K ) 

K-K-l 

GO  TO  59 

66  K  =  K-1 

GO  TO  72 

70  J  =  J+l 

IF(J-K)  59*59*71 

71  I  F (  I  S"2 )  90*72*72 

C  DOUBLE  ROOT  FOUND  ****  END  OF  A  ROW 
C  STEP  REPEATED  ROOT  COUNTER 

72  NR=NR+1 
MT (NR )=IS 

C  TRANSFER  FIRST  ROOT 

WR ( K ) =CQM 
IF(K-l)  77*77*81 

C  REVERSE  MT  VECTOR 

77  IF(NR-l)  78*78.79 

78  RETURN 

79  NRl=NR/2 

DO  80  KP= 1 »NR 1 
KP  1  =  NR~KP  + 1 
I TEM=MT ( KP ) 

MT ( KP ) =MT ( KP 1 ) 

MT ( KP 1 ) = I TEM 

80  CONTINUE 
RETURN 

81  I F  <  K— 2 )  82*82*83 
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82  WR ( I ) =RR ( 1  +  1 ) 
ND=ND+1 

GO  TO  77 

83  KN=K-1 

DO  84  11=1  * KN 

Nl=  I 1  +  1 

RR (  1 1 ) =RR ( Nl ) 

84  CONTINUE 
<  =  K-1 

GO  TO  57 
90  1=1+1 
NN=NN+1 

IF(NN-K)  57*57*95 

95  DO  96  K  J  = 1  * K 
WR ( K J ) =RR ( K J ) 

96  CONTINUE 
ND  =  K 

GO  TO  77 
END 
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C 


SUBROUTINE 

BLDMC  ( L » 

ND*NR*MT ♦ NC  *  WR  *  W I  *  WA ♦ WB  *C  * IER) 

c 

PURPOSE 

c 

TO  BUILD 

MATRIX 

CC  USED  IN  DETERMINING  THE  FUN- 

c 

DAMENTAL 

MATRIX 

ACCORDING  TO  THE  CAYLEY-HAMILTON 

c 

c 

TECHNIQUE 

c 

PARAMETERS 

c 

L 

= 

LENGTH 

OF  VECTORS  WR  *  W I »  WA ♦ WB 

c 

ND 

- 

NUMBER 

OF  DISTINCT  EI.VS 

c 

NR 

— 

NUMBER 

OF  repeated  ei.ve 

c 

NR 

- 

NUMBER 

OF  REPEATED  EI.VS 

c 

MT 

SS 

MULTEPLICITY  VECTOR  FOR  REPEATED  El. VS 

c 

NC 

= 

NUMBER 

OF  COMPLEX  EI.VS 

c 

WR  *WI 

= 

INPUT 

VECTORS  CONTAINING  REAL  AND  IMAGI- 

c 

NARY  PART  OF  El. VS 

c 

WA  >WB 

a 

WORKING  VECTORS 

c 

C 

s 

OUTPUT 

MATRIX  ARRANGED  COLUMNWISE 

c 

LENGTH 

IS  L*L 

c 

IER 

- 

ERROR 

CODE  =0  0 • K • *  =  1  WRONG  DIMENSIONS 

c 

c 

OF  INPUT  VECTORS 

c 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

c 

c 

PDER 

DIMENSION 

MT(1) »WR(1)  *Wl  ( 1)  *  W  A ( 1 )  ♦  W  B  (  1  )  *  C ( 1 ) 

C  SET  INITIAL  VALUES 

KC  =  0 
IER  =0 
LL=L*L 

C  CHECK  IF  ND+NC+SUMIMT ( I ) *I=1*NR)  =  L 
I SUM=0 

IF(NR-l)  6*3*3 

3  DO  4  1  =  1  *  NR 

I SUM= I SUM+MT { I ) 

4  CONTINUE 

6  KT  =ND+NC+ I  SUM 
IF(L-KT)  7*8*7 

7  I ER= 1 
RETURN 

8  IF(ND)  20.20*10 


C  SET  ND  ROWS  FOR  DISTINCT  EIGENVALUES 
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10  DO  16  K= 1  •  ND 

10  DO  16  K= 1 » ND 
C( K)=l .0 
K 1 =K+L 
C ( K 1 ) =WR ( K ) 

K1=K1+L 

DO  16  J  =  K  1  ♦  LL  *  L 
U*J-L 
I  2  =  L+K. 

C( J)=C< II )*C< 12) 

16  CONTINUE 
KC=KC+ND 

20  IF(NR)  50  #  60  ♦  2  5 
25  K-KC+ 1 
Jl  =  l 
29  1  =  1 
KP  =  0 

C  SET  FIRST  ROW  OF  REPEATED  El. VS  INTO  C  VECTOR  AND  WA 

C( K)=1.0 
WA (  I  )  = 1  •  0 
K 1 =K+L 

1  =  141 

C ( K1 >  =WR ( < ) 

WA ( I ) =C  <  K1 ) 

K 1 =K 1+L 

DO  28  J  =  K  1 *  LL  *  L 
1  =  1  +  1 
1 1 = J-L 
I  2  =  L+K 

C( J)=C(I 1 )*C( 12 ) 

WA(I >=C( J) 

28  CONTINUE 

SECOND  ROW  OF  REPEATED  El. VS  CONTAINS  COEFFICIENTS  OF 
OF  DERIVATIVE  OF  PREVIOUS  ROW 

K2=MT (Jl)-l 
DO  40  KK= 1 *K2 
KP=KP+1 
1=0 

N1  AND  N2  ARE  LENGTHS  OF  INPUT  AND  OUTPUT  VECTORS  TO 
SUBROUTINE  PDER 


N 1  =  L-KK 
N2=N1+1 

CALL  PDER  (WB  *N1 * WA  *N2 ) 
K  =  K+1 

DO  35  KS=  1  *KP 
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10  DO  16  K=1 *ND 

KJ  =  K+<  KS-1 )*L 
CIKJ) =0.0 
35  CONTINUE 
K 1 =K J+L 

DO  40  J=K 1 *  LL  *  L 
1  =  1  +  1 

Cl J)=W0( I ) 

C  TRANFER  WB  BACK  INTO  WA 

DO  40  K J= 1  »N1 
WA ( K J ) = WB ( K J ) 

40  CONTINUE 
KC  =  K 

IF(Jl-NR)  45*50*50 
45  K  =  K+1 
J1=J1+1 
GO  TO  29 

50  IF(NC)  99  *99*60 
60  K  =  KC  + 1 
I  T  T  =  2 

C  SET  REAL  PART  OF  COMPLEX  ROOT  IN  KTH  ROWW  OF  C 

69  C ( K ) = 1 • 0 
K 1  =  K+L 

C ( K 1 ) =WR ( K ) 

C  ZERO  FOLLOWING  ROW  AND  TRANFER  IMAGINARY  PART  OF  ROOT 
K2  =  K+ 1 

DO  70  J  =  K2  *  LL  *  L 
Cl J)=0.0 

70  CONTINUE 
K3=K2+L 

C I K3 ) =W I ( K ) 

C  CHECK  FOR  DIMENSION  OF  MATRIX 
IFIL-2)  99*99*75 

C  PROVIDE  REAL  AND  IMAGINARY  PARTS  OF  POWERS  OF  COMPLEX  ROOT 

75  K1=K1+L 

DO  76  J  =  K 1 *LL  *L 
Jl=J+l 
I  1  = J-L 
I  2  =  L+K 
I C 1  =  I  1  +  1 
IC2= 12+1 
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10  DO  16  K==  1  *  ND 


C(J)*CU1)*C( I2)-C(IC1)*C< IC2) 
C( Jl) =C( I  Cl )*C( 12 )+C( IC2)*C(I 1 ) 
76  CONTINUE 

IF(NC-ITT)  99*99*79 
79  K  =  K  +  2 

I  TT= I TT  +  2 
GO  TO  69 
99  RETURN 
END 


•  L  A  d  J  .  a  0  f 


c? ,  ~  * 


;  (ii  ;  o-  a  n 

ill);  (  S3  I  '  I  }  3  M  ,  V;  )')■•(  I v .)  3 

’Hit  1  :  o\ 

.  ->  ( i  ;  -o*  )  h  I 

S+  ■  --'A  P'\ 
i  1  T  T  I  -  T  T  I 

■  a  o  t  00 

,19;  '7  j  ;>•]  99 

0  \A  3 


F-  37 


C 


SUBROUTINE  BLOW  ( LI  * WR * W I » ND *NR * MT * NC *CR I T * DELT * V *N ) 
C  PURPOSE 

C  TO  BUILD  THE  VECTOR  OF  THE  EXPONENTIALS  OF  THE 

C  EIGENVALUES  AT  EACH  TIME  SUBINTERVAL 


c 

PARAMETERS 

c 

LI 

= 

LENGTH  OF  VECTORS  WR*WI*V 

c 

WR  *WI 

= 

INPUT  VECTORS  OF  REAL  AND  IMAGINARY 

PART 

c 

OF  EIGENVALUES  RESPECTIVELY 

c 

ND 

= 

NUMBER  OF  DISTINCT  El. VS 

c 

NR 

= 

NUMBER  OF  REPEATED  El. VS 

c 

MT 

s 

MULTEPLICITY  VECTOR  FOR  REPEATED  El. 

VS 

c 

NC 

= 

NUMBER  OF  COMPLEX  El. VS 

c 

CRIT 

s 

ABSOLUTE  CRITERION  VALUE  TO  NEGLECT 

THE 

c 

EFFECT  OF  SMALL  El. VS  FOR  LARGE  TIME 

VA¬ 

c 

LUES 

c 

DELT 

= 

TIME  VALUE  AT  WHICH  OUTPUT  VECTOR  V 

IS 

c 

CALCULATED 

c 

V 

= 

OUTPUT  VETOR  OF  EXPONENTIAL  OF  El. VS 

c 

c 

N 

= 

EXTERNAL  TIME  INTERVAL  COUNTER 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

C  NONE 


DIMENSION  WR ( 1 ) *WI ( 1 ) *MT ( 1  )  *V ( 1  ) 

C  SET  VECTOR  V  TO  INITIAL  VALUES  OTHER  THAN  ZEROS 

DO  1  1  =  1  *  L 1 
V  (  I  )  =  1  •  0 
1  CONTINUE 

PR = DELT  * FLOAT ( N ) 

C  SKIP  CHECK  FOR  N=0*N=1 

IF(N-l)  25*25*10 
10  COMP=-(2.3026*CRIT)/PR 

C  SET  TO  ZERO  TERMS  ACCORDING  TO  SPECIFIED  CRITERIA 

DO  20  1  =  1 »  L 1 
I  F ( WR (  I J-COMP)  16*16*20 
16  V{  I  )  =0.0 
20  CONTINUE 
25  IF(ND)  40*40*27 
27  DO  30  I  *  1  * ND 


*  •  T  .  I  j  0  »  T  '  ♦  '  »  V  ♦  'r  n  V  V  Cl J  [ :  o  I  1  UC  •  . 

•  V..  I-  q 


ki  i 


n  :  t  [  : ; '(  r  " 


^  1  T,  T  3l* X  ■  T  ,  0  T  ■  j  /  ■  -'T  G  Jlu;: 

:  ‘  V  •  ■  j  T  ,  ’  j  0  '  X  j  •'  i  T  H  •  A  A  jO  j  A  W  :  '  J 


V  *  1  >>  »  J 


J  i  ■  IJ  r 

iJIC'T  ..  ;iv  i  = 


A  i  V  .  /  1  <  j  >'  ■  J  »'  A  J  .A  .  •  •• 

•j  V  1  T  :  i  U  .  iV  ■  I  . 

c.  / .  ;  ic  i.  •  •  Uv 

cV.i  x  ;  -  '•  /  - 


.1  f  A  :  •<  i y.  9\ 0  -1  0 

•  :  y  J  ! 

)  ;  .  -M-i  T  ; 

cVM  1  > 

i  .  y\  - 

-  .  •  v;  i 

i  H  T  T 

J  j  .1  /  0  T  j  U  J . » V 

I  ;|  F  I  X  j 

'  .  .  .2  1 

\  t  Jut  T 

■A  V  -  ‘  ‘  i. 

*  •  i  ; 

*  /  \* 

;  -  T  J 

-u 

c  I  V 

rU9T  . 

r  .  .  A  . 

jav  j  •' : 

'  T  a  :u  j  j  A 

V  . 

J  < .  I  IT-, /O'- A  • 

iO  00  T 

V 

>i jT/i UG 3  JAV  JT 

\A  l  }  -  i  ■ 

JA.  1  J  T  x 

.  TioGj^  ci>  MX  ' 

■  0-1 •  /. 

0  1  T3.  J  - 

(  i 

)  V  .  (  1  )  , 

. 

<  o  <  ’  i  '  aht  y 

HTJ  a.'iU 

j  A  M  T 

2 

I J 


t  V 


/-*  < , 


V 

/< 

I  ■  jC  ■  Mo  • 


•3  * 


./  V  •  T  1  V/'  Ir3 

v  v  y  t  .  j  c 


/  )T‘ 
i  *  L  ~  ;■ 


J  ♦  .1  ‘  * 

. 

’  .  :  I 

•  -•  t  j  .*» •  .• 


.n  Jo  -<h 


C  « 

r  I  \  (  T  I  ■  :  l-  a 


S  (  X—  * )  I 

.  )  - 


M 


I,  •  1  O  ...  I'll  CM  f  I  /■  '  A  *  ••  ■  •  r  ;x  '  T 


.  J  t  .  i 

•  ;  •  ■'  1 .  rj  i  (  ';-(!)  )  I 

.  v  •  )  V  £  i 

u.  r  /o ",  r 

'  >.  t  v «  '  A  (  !  :‘Z 

*  1  :  '  V  , 


n  n  r>  n  n  r>  r .  o  r>  ■.  <  n  r\  n  n  n  r  r\  n  r  ■ 


c 


C  SKIP  IF  V  WAS  SET  TO  ZERO  IN  PREVIOUS  TEST 

I F ( V ( I ) )  28*30*28 
28  TEMP=WR ( I ) *PR 
V  (  I  )  =EXP ( TEMP ) 

30  CONTINUE 

C  REPEATED  ROOTS 

40  Jl»l 
K  =  ND+ 1 

IF(NR)  60*60*46 
C  CHECK  FOR  ZERO  VALUES 

46  I F ( V ( K )  )  47*50*47 

47  TEMP=WR(K)*PR 
V ( K ) =EXP ( TEMP ) 

K 1 =MT ( J 1 ) *1 

DO  48  KK= 1 *K1 
K2-K+KK 

V(K2)=V(K2-1)*PR 

48  CONTINUE 
Jl=Jl+l 
K=K+Kl+1 

IF(NR-Jl)  60*46*46 

50  IF(NR-Jl)  60*52*51 

51  K=K+MT ( J 1 ) 

J1=J1+1 

GO  TO  46 

52  K=K+MT<Jl) 

60  IF(NC)  80*80*65 

65  I T  T  =  2 

66  I  F ( V ( K ) )  70*71*70 

70  T  EMP- WR ( K ) *PR 
TEMP1=WI ( K ) *PR 
V(K)=EXP( TEMP )*COS( TEMPI  ) 

V ( K+l ) =EXP ( TEMP )*S IN (TEMPI) 

71  IF(NC-ITT)  80*80*72 

72  K  =  K  +  2 

I T  T= I T  T  +  2 
GO  TO  66 
80  RETURN 
END 
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SUBROUTINE  POSRT ( N » A » FM * WORK 1  * W0RK7 • N I T  * DELTH » K 1 » I ER ) 
C  PURPOSE 

C  TO  CALCULATE  THE  FUNDAMENTAL  MATRIX  BY  THE  POWER 

C  SERIES  METHOD 

C 

C  PARAMETERS 

C  N  =  D I  MENS  ION  OF  MATRIX  A  * FM * WORK1 * WQRK7 

C  A=COEFF I C I  ENT  MATRIX  OF  STATE  EQUATION 

C  FM= FUNDAMENTAL  MATRIX 

C  WORK  1 »WORK7=WORKING  VECTORS  OF  LENGTH  N*N 

C  N I T  =NUMBER  OF  ITERATIONS 

C  DELTH=T IME  SUBINTERVAL 

C  K 1  =  T  I  ME  SUBINTERVAL  COUNTER 

C  I ER=ERROR  CODE  =  0  O.K..  *  1  NO  CONVERGENCE  IN 

C  NIT  ITERATIONS 

C 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

C  GMPRD.GMADD*  MSMUL 

C 


DIMENSION  A ( 1 ) » FM ( 1 ) *WORKl ( 1 )  .WORK7 ( 1 ) 
I  ER  =  0 

EPS* 1 • 0E-03 
I  ACC* 1 
N  N  *  N  *  N 

TEE=DELTH*FLOAT  (  K1  ) 

SET  UP  UNIT  MATRICES  IN  FM  AND  WORK1 


DO  4  I » 1  *  NN 
FM( I ) =0.0 
WORK 1 ( I >=0.0 

4  CONTINUE 
DO  5  I  =  1  *  N 
K=I+N*( 1-1) 

FM ( K ) = 1  •  0 
WORK 1 ( K ) = 1 • 0 

5  CONTINUE 

BYPASS  THE  SUBROUTINE  THE  FIRST  TIME  THROUGH. 


IF(K1)  100.100*6 
6  CONTINUE 
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C 

PRODUCE  SUCCESSIVE  POWERS  OF  A  *  MULT  I  PL  Y  THEM  BY  THE 
TIME  FACTOR 

AND  ADD  THEM  TOGETHER  AFTER  HAVING  CHECKED  FOR 
CONVERGENCE 


DO  80  I  =  1  *  N  I  T 
I  ACC= I  ACC* I 

TEEF=TEE*#I /FLOAT { I  ACC ) 

CALL  GMPRD(WORKl*A  * WORK 7  *  N  *N  *  N  ) 

TRANSFER  WORK7  TO  WORK1 


DO  10  K= 1  *  NN 
WORK1 (K)=WORK7IK) 

10  CONTINUE 

CALL  MSMUL (N*N*WORK7  #TEEF  *  WORK 7 ) 
CHECK  FOR  CONVERGENCE 


I  SEE  =  0 

DO  30  K=  1  *  NN 

I  F ( ABS ( WORK7 ( K ) ) -EPS*ABS ( FM ( K )  )  )  21*21*30 
21  ISEE=ISEE+1 
30  CONTINUE 

IFtlSEE-NN)  40*100*100 
40  CALL  GMADD(FM*WORK7*FM*N*N) 

80  CONTINUE 
I  ER  =  1 

100  RETURN 
END 
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SUBROUTINE  BLDMR  ( N * A ♦ WA * R *KK  ) 
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PURPOSE 

TO  BUILD  SUCCESSIVE  POWERS  OF  COEFFICIENT  MATRIX 
A 


PARAMETERS 

N 

A 

WA 

R 

KK 


=  DIMENSION  OF  INPUT  MATRIX  A  .LENGTH  IS 
N*N 

*  INPUT  MATRIX 

=  WORKING  VECTOR  OF  LENGTH  N*N 
=  RESULTANT  MATRIX  EXPRESSED  COLUMNWISE 
OF  LENGTH  N*N 

=  EXTERNAL  COUNTER  .IT  VARIES  BETWEEN  0 
AND  L. CONSEQUENTLY  MAXIMUM  POWER  OF  A 
CALCULATED  IS  L-l 


SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
GMPRD 


DIMENSION  A ( 1 ) *WA ( 1 ) * R ( 1 > 
M  =  N*N 

IFUK-2)  10*20*30 
C  SET  A  UNIT  MATRIX  IN  R 

10  DO  11  I  =  1  *  M 
R ( I )=0.0 

11  CONTINUE 

DO  12  I  =  1  *  N 
1 1=  < 1-1 )*N+I 
R  (  1 1 )  =  1  •  0 

12  CONTINUE 
GO  TO  50 

20  DO  25  1  =  1. M 
R  (  I  )  =  A  (  I  ) 

25  CONTINUE 
GO  TO  50 

30  CALL  GMPRD  ( WA . A  .  R . N ♦ N .N ) 


C  TRANSFER  LAST  MATRIX  IN  WA 

DO  35  1=1 .M  ' 

W  A  <  I  )  =  R  (  I  ) 

35  CONTINUE 
50  RETURN 
END 
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SUBROUTINE  MSMUL  (L*L1*A*S»R) 
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PURPOSE 

TO 


MULTIPLY  A  MATRIX  BY  A  CONSTANT 


PARAMETERS 

L 

LI 

A 

S 

R 


NUMBER  OF  ROWS  OF  INPUT  MATRIX  A 
NUMBER  OF  COLUMNS  OF  MATRIX  A 
INPUT  MATRIX  ARRANGED  COLUMNWISE 
CONSTANT 

OUTPUT  MATRIX  ARRANGED  COLUMNW I SE • IT 
COULD  BE  THE  SAME  AS  A 


SUBROUTINES 

NONE 


AND  FUNCTION  SUBPROGRAMS  REQUIRED 


DIMENSION  A ( 1 ) i R ( 1 ) 
LL=L*L1 
DO  1  I  =  1  *  LL 
R  <  I  ) = A ( I ) *S 
1  CONTINUE 
RETURN 
END 
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SUBROUTINE  BLDFF ( NTD*TO*DELT  *X *N2 *NU *UD »OV *NP »MV  *NCODE 
1 » WA  *WB »MAXO 
1 *OW» I  SAVE* IOWCT#N#LUNP ) 
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PURPOSE 

TO  BUILD  THE  FORCING  FUNCTION  VECTORS  U  AND  V  AT 
EACH  TIME  INTERVAL 


PARAMETERS 

NTD 

= 

NUMBER  OF  TIME  DELAYS 

TO 

= 

INITIAL  TIME  VALUE 

DELT 

TIME  INTERVAL 

X 

= 

STATE  VARIABLE  VECTOR 

N2 

= 

LENGTH  OF  VECTORS  NU*UD»OV 

NU 

= 

VECTOR  CONTAINING  INDECES  OF  VARIABLES 
WHOSE  NUMBER  IS  SPECIFIED  IN  VECTOR  MV 

UD 

VECTOR  CONTAINING  VALUES  OF  TIME  DELAYS 
ASSOCIATED  WITH  VARIABLES  OF  NU  VECTOR 

NP 

SE 

LENGTH  OF  VECTOR  MV 

MV 

S 

VECTOR  CONTAINING  NUMBERS  OF  EXTERNAL 
FORCING  FUNCTIONS  AND  AS  MANY  COUPLES  OF 
NUMBERS  OF  DELAYED  FORCING  FUNCTIONS  AND 
STATE  VARIABLES  AS  THERE  ARE  TIME  DELAYS 

NCODE 

VECTOR  OF  LENGTH  NF s  NUMBER  OF  EXTER¬ 
NAL  FORCING  FUNCTIONS  CONTAINING  CODE 

NU¬ 
MBERS  FOR  THE  TYPE  OF  DISTURBACES 

WA 

VCTOR  OF  LENGTH  NF  CONTAINING  THE  FIRST 
DISTURBANCE  PARAMETER 

WB 

VECTOR  OF  LENGTH  NF  CONTAINING  THE  SE¬ 
COND  DISTURBANCE  PARAMETER 

MAXOW 

= 

LENGTH  OF  VECTOR  OW 

OW 

s 

VECTOR  FOR  TEMPORARY  STORAGE  OF  DELAYED 
FORCING  FUNCT I ONSAND  STATE  VARIABLES 

ISAVE 

s 

WORKING  VECTOR  CONTAINING  LAST  POSITIONS 
OF  DELAYED  VARIABLES  WHEN  OW  IS  REUSED 

I OWC  T 

- 

COUNTER  INITIALIZED  TO  ZERO  OUTSIDE  THE 
ITERATION  LOOP 

N 

£ 

TIME  INTERVAL  COUNTER 

LUNP 

- 

LOGICAL  UNIT  NUMBER  FOR  PRINTING  OUT  AN 
ERROR  MESSAGE 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 


DIMENSION  X(1 ) *NU( 1 ) »UDU ) *OV ( 1 ) »MV( 1 ) *NCODE( 1 ) *WA ( 1 ) 
1 »WB( 1 ) »OW( 1 ) 

1 ISAVE ( 1  ) 
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SET  INITIAL  VALUES. 


K  =  1 
J=1 
1  =  1 

NUXD=0 

IFLAG=-1 

N I =TO/DELT  +  .5 
NC  T  =  N  +  N I 

T=DELT*FLOAT ( NCT ) 

K V=MV ( K ) 

IF(KV)  5.5.7 
5  1=1-1 
GO  TO  110 

7  CONTINUE 

START  GENERATING  DISTURBANCES  ACCORDING  TO  CODE • 

KK  =  NU ( I  ) 

KS=NCODE ( KK ) 

A 1  =WA ( KK ) 

B 1 =WB ( KK  ) 

GO  TO  (10*20. 30. 40. 50 .60. 70.80. 90. 100 ).KS 
10  TEMP=A1 
GO  TO  105 
20  TEMP=A1*T 
GO  TO  105 

30  TEMP=A1*SIN(B1*T ) 

GO  TO  105 

40  IF(Bl-T)  42.41.41 

41  TEMP=A1 
GO  TO  105 

42  TEMP=0 .0 
GO  TO  105 

50  WRITE (LUNP. 51 ) 

51  FORMAT ( 1H0  .' FORC ING  FUNCTION  REQUESTED  NOT  AVAILABLE* 
1/) 

RETURN 
60  GO  TO  50 
70  GO  TO  50 
80  GO  TO  50 
90  GO  TO  50 
100  GO  TO  50 


105  CONTINUE 

IF(K-l)  107.107.130 
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107  OV(  I )  =  TEMP 
KV=KV“1 

IF(KV)  110*110*108 

108  1=1+1 
GO  TO  7 

110  CONTINUE 

IF(NTD)  600*600*120 
120  DO  122  KR  =  2  *NP 
NUXD=NUXD+MV( KR ) 

122  CONTINUE 

C  CHECK  FOR  SPACE  IN  VECTOR  OW. 

DO  125  KR= 1  * N2 

KK  =  ABS ( UD ( KR  )  J/DELT+0.5 

IF ( KK*NUXD-MAXOW )  125*125*126 

125  CONTINUE 
GO  TO  128 

126  WRITE! LUNP  *  127 ) 

127  FORMAT (1H  * • TOO  MANY  VALUES  IN  VECTOR  OW—  REDUCE  NO. 
1  OF  POINTS'/ 

RETURN 

128  NSETS-MAXOW/NUXD 

K  =  K  + 1 
1  =  1+1 
K V=MV ( K ) 

IF(KV)  129*129*7 

129  1=1-1 

GO  TO  300 

130  CONTINUE 
NSUB=NCT-NSETS*IOWCT 
JT=NSETS*NUXD 
JC=J+NSUB*NUXD 
IF(JC-JT)  150*150*140 

140  I OWCT  = I OWCT  +  1 
GO  TO  130 
150  OW ( JC ) -  TEMP 

IDLAY=ABS(UD( I ) ) /DELT+0.5 
IF(IOWCT)  170*170*250 
170  CONTINUE 

IF (JC-J-IDLAY*NUXD)  180*200*200 
180  OV(  I  )  =0.0 
GO  TO  280 

200  ISAVE(J)=  JC- I DL AY*NUXD 
KR= I  SAVE ( J ) 

OV ( I ) =OW( KR ) 

GO  TO  280 

250  KR=ISAVE< Jl+NUXD 
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IF(KR-JT)  260*260*270 
260  I  SAVE ( J ) =  KR 
OV  < I ) =0W ( KR  ) 

GO  TO  280 

270  I  SAVE ( J ) =  KR- JT 
KR=KR-jT 
OV( I ) =OW ( KR ) 

280  KV=KV-1 

IF(KV)  300.300*290 
290  1=1+1 
J  =  J+l 

I  F ( I  FLAG )  7*7*330 
300  K  =  K+1 
1  =  1+1 

IF(K-NP)  400*320.600 
320  K  V  =  MV ( K ) 

IF(KV)  600*600.325 
325  J= J+l 
330  KK=NU<  I  ) 

TEMP=  X ( KK ) 

I FLAG= 1 
GO  TO  130 
400  KV=MV ( K ) 

GO  TO  (7*130*430*450*430*450*430*450) *K 
430  IF(KV)  440*440.325 
440  K=K+1 

GO  TO  400 

450  IF(KV)  460*460*470 
460  K=K+1 

GO  TO  400 
470  IFLAG=-1 
J  =  J+l 
GO  TO  7 
600  RETURN 
END 
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SUBROUTINE  AFCR T ( N *  I NPUT * L *  I OUT ) 


C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 

DIMENSION  INPUT ( 1 ) *  I  OUT ( 1 ) 

DATA  MSK  *  MSK l»MSK2/ZFFO0*Z8OOO»Z7F00/ 
L=N/2+ • 5 
DO  10  1  =  1  »L 
K= 1+2* ( 1-1  ) 

K1=K+1 
J= INPUT ( K ) 

J 1 = INPUT ( K1 ) 

I  OUT ( I )  =  IAND(MSK*J)  +  IAND( MSK 2 #Jl ) /2  56 
I R= I AND ( MSK1 * J1 ) 

IF  C IR )2  *10*10 
2  IOUT( I )=IOUT( I )+128 
10  CONTINUE 
RETURN 
END 


PURPOSE 

TO  CONVERT  ALPHAMERICS  FROM  A1  TO  A2  FORMAT 


PARAMETERS 

N 

INPUT 

L 

IOUT 


=  LENGTH  OF  INPUT  VECTOR  INPUT  (Al) 
=  INPUT  VECTOR 

=  LENGTH  OF  OUTPUT  VECTOR  IOUT  ( A2 ) 
=  OUTPUT  VECTOR 


SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 


N/2 
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